Bild löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: Exel 2000
nach unten

Betrifft: Bild löschen
von: Martin Cichon
Geschrieben am: 10.04.2002 - 23:16:25

Hallo,

möchte mit einem Makro, ein geladenes Bild löschen.
Wie stelle ich das an?

Ich habe es mit einer Makro Aufzeichnung probiert, aber
dort wird das Anklicken mit der Maus nicht registriert.
So läßt sich das Bild nicht auswählen.
Wie lautet ein solcher Code?

Danke für Hilfe

MfG Martin Cichon


nach oben   nach unten

Re: Bild löschen
von: Micha
Geschrieben am: 11.04.2002 - 09:21:35

Hallo Martin
Hier eine kleine Auswahl

Sub 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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "History"