Mit meinem Makro bastle ich eine neue Symbolleiste mit einem Button. Von der Platzierung soll diese neben die bestehenden (Standard, Format), da bei 1024er Auflösung dort genug Platz ist.
Dazu wollte ich die Eigenschaften .left, .top usw. nutzen.
.left ist ausreichend weit rechts, und wenn ich mit .top experimentiere komme ich irgendwann in den Tabellenblattbereich, aber nie neben die vorhandenen Leisten.
Wer hat 'ne Lösung?
Sub Symbol_anpassen()
On Error Resume Next
Toolbars("Messlauf-Suche").Delete
On Error GoTo nix
With Application
.ShowToolTips = True
.LargeButtons = False
.ColorButtons = True
End With
Toolbars.Add Name:="Messlauf-Suche"
Toolbars("Messlauf-Suche").ToolbarButtons. _
Add Button:=210 + i, Before:=1
With Toolbars("Messlauf-Suche")
.Visible = True
.Position = xlTop
.Left = 649
.Top = 45
.ToolbarButtons(1).Name = "Messlauf-Suche"
End With
ThisWorkbook.Sheets("Symbol").DrawingObjects("symbol1").Copy
Toolbars("Messlauf-Suche").ToolbarButtons(1). _
PasteFace
Application.Toolbars("Messlauf-Suche").ToolbarButtons(1). _
OnAction = "los_gehts"
nix:
End Sub