CommandButton lösche verhindern

12/05/2008 - 11:36 von Manfred Saborowski | Report spam
Hallo Newsgroup,

ich habe folgendes Problem: In einer Tabelle füge ich hàufig Bilder ein, die
spàter über ein CommandButton mit folgendem Makro lösche:

Private Sub CommandButton1_Click()
' Makro Bilder löschen
'
ActiveSheet.Shapes.SelectAll
'ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub

Leider wird auch der CommandButton gelöscht, wenn man einmal zu viel klickt.

Wie kann ich das löschen des CommandButton verhindern?

Mit freundlichen Grüßen

Manfred
 

Lesen sie die antworten

#1 Claus Busch
12/05/2008 - 12:46 | Warnen spam
Hallo Manfred,

Am Mon, 12 May 2008 11:36:20 +0200 schrieb Manfred Saborowski:

ich habe folgendes Problem: In einer Tabelle füge ich hàufig Bilder ein, die
spàter über ein CommandButton mit folgendem Makro lösche:

Private Sub CommandButton1_Click()
' Makro Bilder löschen
'
ActiveSheet.Shapes.SelectAll
'ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub

Leider wird auch der CommandButton gelöscht, wenn man einmal zu viel klickt.

Wie kann ich das löschen des CommandButton verhindern?



probiers mal so:
Private Sub CommandButton1_Click()
' Makro Bilder löschen

Dim sh As Shape

For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 3) <> "Com" Then
sh.Delete
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen