ich habe eine Frage:
Wie kann ich alle Bilder per Button löschen, ohne dabei den Button selbst zu löschen.
Sub Test
ActiveSheet.Pictures.Delete
End Sub
Dieser löscht leider den Button mit (ActiveX Element).Gruß
Muehli
Sub Test
ActiveSheet.Pictures.Delete
End Sub
Dieser löscht leider den Button mit (ActiveX Element).
Private Sub CommandButton1_Click()
Dim shp As Object
Application.ScreenUpdating = False
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then shp.Delete
Next
End Sub
Private Sub CommandButton1_Click()
Dim s As String
Dim pic As Picture
Dim rng As Range
'Bilder einfügen
Range("A17").Select
ActiveSheet.Pictures.Insert _
ThisWorkbook.Path & "\Anleitung\Anleitung_" & i + 1 & ".png"
If i = 5 Then
i = 0
Else
i = i + 1
End If
'If i = 0 Then
' ActiveSheet.Pictures.Insert( _
' ThisWorkbook.Path & "\Anleitung\Anleitung_1.png").Select
' i = i + 1
'ElseIf i = 1 Then
' Selection.Delete
' ActiveSheet.Pictures.Insert( _
' ThisWorkbook.Path & "\Anleitung\Anleitung_2.png").Select
' i = i + 1
'ElseIf i = 2 Then
' Selection.Delete
' ActiveSheet.Pictures.Insert( _
' ThisWorkbook.Path & "\Anleitung\Anleitung_3.png").Select
' i = i + 1
'ElseIf i = 3 Then
' Selection.Delete
' ActiveSheet.Pictures.Insert( _
' ThisWorkbook.Path & "\Anleitung\Anleitung_4.png").Select
' i = i + 1
'ElseIf i = 4 Then
' Selection.Delete
' ActiveSheet.Pictures.Insert( _
' ThisWorkbook.Path & "\Anleitung\Anleitung_5.png").Select
' i = i + 1
'ElseIf i = 5 Then
' Selection.Delete
' ActiveSheet.Pictures.Insert( _
' ThisWorkbook.Path & "\Anleitung\Anleitung_6.png").Select
' Selection.Delete
' i = 0
'End If
Range("A60").Value = i
End Sub
Sub XAchse()
If 0
Das ganze Programm dient zu Ermittlung eines Schwerpunktes.
Sub XAchse()
'X-Achse
Select Case Range("O53")
Case Is > 0, Is 1, Is 2, Is 3, Is 4, Is