Gruppe
Grafik
Problem
Die ersten beiden Bilder im Tabellenblatt sollen gelöscht werden.
StandardModule: Modul1
Sub DeletePictures()
Dim pct As Picture
Dim iCounter As Integer
For iCounter = 1 To 2
ActiveSheet.Pictures(iCounter).Delete
Next iCounter
End Sub