ich erstelle aus einem Bereich in Sheet bmp ein Bild und füge es in Sheet Live ein
Sub bmp1()
Dim rRange_To_Copy As Range
Application.ScreenUpdating = False
Set rRange_To_Copy = Sheets("bmp").Range("c3:n26")
rRange_To_Copy.CopyPicture xlScreen, xlPicture
Worksheets("Live").Select
Range("p5").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
Worksheets("Live").Activate
End Sub
soweit, so gut.Will ich nun dieses Bild in Sheet "Live" löschen, nutze ich
Sub loeschBMP()
Dim shape As Excel.shape
Application.ScreenUpdating = False
' löscht vorhandenes shape
For Each shape In ActiveSheet.Shapes
shape.Delete
Next
End Sub
Das Bild wird gelöscht, allerdings auch die Schaltflächen.Kann mir bitte jemand mitteilen, wie ich entsprechendes Makro schreibe,- ohne die Schaltflächen zu löschen?!
Gruss
Fred