Sub DeleteAllPicture()
Dim myShp As Shape
Dim mySht1 As Object
Dim mySht2 As Worksheet
Dim myWd As Window
Set myWd = ActiveWorkbook.Windows(1)
For Each mySht1 In myWd.SelectedSheets
If mySht1.Type = xlWorksheet Then
Set mySht2 = mySht1
For Each myShp In mySht2.Shapes
If myShp.Type = 13 Then
myShp.Delete
End If
Next
End If
Next
Set mySht1 = Nothing
Set mySht2 = Nothing
End Sub
沒有留言:
張貼留言