Re: Makroschaltfläche auf allen Blättern
21.05.2002 11:49:18
ThomasW
Hallo Thomas,also mit dem Steuerelement auf allen Blättern kann ich dir leider nicht weiterhelfen, doch du kannst ja auch einen Symbolleiste via VAB generieren und diese dann in das "Workbook.Open2 Event reinpacken. Dann machst du noch ein Makro, das die Symbolleiste wieder zerstört, wenn das Workbook wieder geschlossen wird (Workbook.BeforeClose).
Ich hoffe dir damit geholfen zu haben.
Gruß thomas
PS: hier die Funktion, mit der du die Symbolleiste definierst:
Application.CommandBars.Add "NAME" 'hier fügst du eine neu Symbolleiste hinzu
with Application.CommandBars("NAME").Controls.Add(Type:=msoControlButton)
.Caption = "irgendwas"
.OnAcion = "was soll er machen"
.Style = "nur Text oder auch Bildchen auf dem Button"
.FaceId = "Falls du eine Ikone verwenden willst"
.Visible = "True bzw. False"
'das ist die Funktion, mit der du einen neuen Button hinzufügen kannst.
Application.CommandBars("NAME").Delete 'hiermit wird die Symbolleiste wieder gelöscht.
Viel Erfolg