Problem mit CopyPicture
10.02.2003 17:48:53
chris b
kopiere mit dem makro einen teil eines sheets und füge es in ein anderes ein.
ich möchte jetzt ein zweites makro erstellen das mir immer wenn ich es anklicke das bild wieder löscht.
Komme auch soweit habe ein makro aufgezeichnet das geht aber siht so aus.->
Sub test()
ActiveSheet.Shapes("Picture 60").Select
Selection.Delete
End Sub
aber das Picture heist jedesmal anders mal 61 dann 62 usw.... könnt ihr mir helfen ?? Wäre super danke
Sub jan_baw()
Cells(10, 1).Select
Worksheets("Eingabetabelle Summe MAE").Select
Worksheets("Eingabetabelle Summe MAE").Range("E4:I19").CopyPicture _
Appearance:=xlScreen, Format:=xlBitmap
Worksheets("Eingabe").Select
Worksheets("Eingabe").Paste _
Destination:=Worksheets("Eingabe").Range("C2")
Application.Wait Now + TimeSerial(0, 0, 2)
End Sub
Anzeige