Sub SJPK()
Dim jpg As Shape
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range("A33").Merge
ws.Range("A3").HorizontalAlignment = xlLeft
ws.Range("A3").Value = "XXX学校"
For Each jpg In ws.Shapes
If jpg.Type = 13 Then
jpg.Delete
End If
Next jpg
Next ws
End Sub