Shapes setzen und entfernen
01.02.2006 10:09:55
Korl
meine Idee ist, das im activen Sheet am variablen Ende, ein Shapes gesetzt werden soll.
Das funktioniert auch. Dieses möchte ich dann aber auch wieder löschen können.
Und das funktioniert nicht.
Im Moment bin ich mit einer Tastenkombination um die Makros ausführen zu können,
am testen.
Mein Ziel soll aber sein, vor dem ausdrucken des activen Sheets jeweils das Shapes zu setzen und danach wieder zu löschen.
Hier mal mein Code:
Option Explicit
Sub Erläuterung()
'Erläuterung zum Einzelort setzen
Dim wksE As Worksheet, wksA As Worksheet
Dim lLetzteA As Long
Set wksE = Worksheets("Erläuterung") 'hier liegt das Shapes
Set wksA = ActiveSheet
lLetzteA = IIf(wksA.Range("A65536") <> "", 65536, wksA.Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
wksE.Shapes("Picture 1").Copy
ActiveSheet.Range("A" & lLetzteA + 3).Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub
Sub Erläuterung_entfernen()
ActiveSheet.Shapes("Picture 1").Delete 'xxxxxxxxxx lässt sich nicht entfernen xxxxxxxxx
End Sub
Kann mir hier bitte jemand helfen?
Gruß Korl
Anzeige