Re: Bild löschen
11.04.2002 09:21:35
Micha
Hallo Martin
Hier eine kleine AuswahlSub AlleBilderLöschen()
Tabelle1.Shapes.SelectAll
Selection.Delete
End Sub
Sub AusgewähltesBildLöschen()
Selection.Delete
End Sub
Sub BilderNachFrageLöschen()
' von Micha
Dim lngZ As Long, lngAntwort As Long, lngZähler As Long, lngMenge As Long
lngZähler = 0
lngMenge = ActiveSheet.Shapes.Count
For lngZ = 1 To lngMenge
ActiveSheet.Shapes(lngZ - lngZähler).Select
lngAntwort = MsgBox("Wollen Sie " & _
ActiveSheet.Shapes(lngZ -lngZähler).Name & " löschen?" _
, vbYesNoCancel, "Bilder löschen")
If lngAntwort = vbCancel Then Exit Sub
If lngAntwort = vbYes Then
Selection.Delete
lngZähler = lngZähler + 1
End If
Next
Range("A1").Select
End Sub