Grafiken löschen
09.02.2004 06:45:57
Jasmin
Habe folgendes Problem:
Möchte aus der Nachbarzelle eine Grafik löschen.
Hier mein Code:
Sub Löschen()
Dim grafik As Shape
If activecell.Value = "" Then
activecell.Offset(0, 1).Select
If grafik.Type = msoPicture Then
grafik.Delete
End If
End If
End Sub
Leider bekomme ich immer eine Fehlermeldung.
Wer kann helfen?
Gruß Andreas
Anzeige