hallo,

ich möchte gerne über ein makro in einer tabelle eine schaltfläche hinzufügen, die wiederum beim anklicken ein makro "drucken" ausführen soll. hab dazu folgenden code:

ActiveSheet.Buttons.Add(465.75, 245.25, 88.5, 42.75).Select
Selection.OnAction = "Drucken"
ActiveSheet.Shapes("Drucken").Select
Selection.Characters.Text = "Drucken"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

beim ausführen kommt aber immer ein laufzeitfehler mit der fehlermeldung:
das element mit dem angegebenen namen wurde nicht gefunden. beim debuggen bleibt er in der zeile

ActiveSheet.Shapes("Drucken").Select

stehen.

kann mir jemand weiterhelfen?

- markus