Toolbar am Rand verankern per VBA
14.10.2008 15:15:00
Jakob
mit folgenden Code erstelle ich eine Toolbar. Wie müßte ich den Code modifizieren damit diese Leiste links am Rand verankern wird?
Sub CreateMenubar()
Dim iCtr As Long
Dim MacNames As Variant
Dim CapNamess As Variant
Dim TipText As Variant
Call RemoveMenubar
MacNames = Array("Brasilien", _
"Argentinien", _
"Mexiko", _
"Guatemala", _
"Venezuela", _
"Quelle", _
"Beenden")
CapNamess = Array("Brasilien", _
"Argentinien", _
"Mexiko", _
"Guatemala", _
"Venezuela", _
"Quelle", _
"Beenden")
TipText = Array("Brasilien tip", _
"Argentinien tip", _
"Mexiko tip", _
"Guatemala tip", _
"Venezuela tip", _
"Quelle", _
"Beenden")
With Application.CommandBars.Add
.Name = ToolBarName
.Left = 30
.Top = 140
.Protection = msoBarNoProtection
.Visible = True
.Position = msoBarFloating
For iCtr = LBound(MacNames) To UBound(MacNames)
With .Controls.Add(Type:=msoControlButton)
.OnAction = "'" & ThisWorkbook.Name & "'!" & MacNames(iCtr)
.Caption = CapNamess(iCtr)
.Style = msoButtonIconAndCaption
.FaceId = 71 + iCtr
.TooltipText = TipText(iCtr)
End With
Next iCtr
End With
End Sub
Vielen Dank.
Gruß,
Jakob
Anzeige