Microsoft Excel

Herbers Excel/VBA-Archiv

Toolbar am Rand verankern per VBA | Herbers Excel-Forum


Betrifft: Toolbar am Rand verankern per VBA von: Jakob Freitag
Geschrieben am: 14.10.2008 15:15:02

Hallo,

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

  

Betrifft: AW: Toolbar am Rand verankern per VBA von: Rudi
Geschrieben am: 14.10.2008 15:20:34

Hi,

.Position = msoBarLeft


  

Betrifft: AW: Toolbar am Rand verankern per VBA von: Jakob Freitag
Geschrieben am: 14.10.2008 17:01:16

Hallo Rudi,

Vielen Dank für Deine Hilfe.

Gruß,
Jakob