AW: Postion benutzerdefinierter Toolbars festlegen
04.08.2006 13:39:11
Martin
Hallo u_
hier mal meine Toolbars:
Sub makro1()
Toolbars.Add Name:="Toolbox"
Toolbars("Toolbox").Visible = True
Toolbars("Toolbox").Width = 1527
With Application
.ShowToolTips = True
.LargeButtons = False
.ColorButtons = True
End With
With Toolbars("Toolbox")
.ToolbarButtons.Add Button:=238, Before:=1
.ToolbarButtons(1).OnAction = "Makro19"
.ToolbarButtons.Add Button:=14, Before:=2
.ToolbarButtons(2).OnAction = "Makro3"
.ToolbarButtons.Add Button:=172, Before:=3
.ToolbarButtons(3).OnAction = "Makro69"
.ToolbarButtons.Add Button:=9, Before:=4
.ToolbarButtons(4).OnAction = "Makro70"
.ToolbarButtons.Add Button:=248, Before:=5
.ToolbarButtons(5).OnAction = "Makro49"
.ToolbarButtons.Add Button:=3, Before:=6
.ToolbarButtons(6).OnAction = "Makro12"
.ToolbarButtons.Add Button:=4, Before:=7
.ToolbarButtons(7).OnAction = "Makro18"
.ToolbarButtons.Add Button:=207, Before:=8
.ToolbarButtons(8).OnAction = "Sicherheitsspeichern"
.ToolbarButtons.Add Button:=220, Before:=9
.ToolbarButtons(9).OnAction = "Makro2"
.ToolbarButtons.Add Button:=229, Before:=10
.ToolbarButtons(10).OnAction = "Auto_Schließen"
.ToolbarButtons(1).Name = "zur Hauptauswahl"
.ToolbarButtons(2).Name = "Schütze eingeben/auswerten"
.ToolbarButtons(3).Name = "Protokolle "
.ToolbarButtons(4).Name = "Mannschaftswertungen"
.ToolbarButtons(5).Name = "Schützen suchen"
.ToolbarButtons(6).Name = "Ansicht drucken"
.ToolbarButtons(7).Name = "Seitenansicht"
.ToolbarButtons(8).Name = "Programm speichern"
.ToolbarButtons(9).Name = "Einstellungen"
.ToolbarButtons(10).Name = "Programm beenden"
End With
Toolbars("Toolbox").ToolbarButtons(1).Pushed = True
CommandBars("Toolbox").Controls(5).BeginGroup = True
CommandBars("Toolbox").Controls(8).BeginGroup = True
CommandBars("Toolbox").Controls(5).FaceId = 46
End Sub