CommandBar Position
22.04.2008 20:20:24
matthias
ich benutze folgendes Script um eine Menü anzulegen. Nun stört mich, dass nach einem Excel-Neustart das Menü immer wieder in einer separaten Position am linken Rand erscheint - unabhängig davon, ob ich es vorher an einer anderen Stelle positioniert habe. Ich vermute es liegt am Befehl msoBarTop. Jedoch haben die anderen Möglichkeiten (float) auch keine Verbesserung gebracht. Was mache ich falsch?
Vielen Dank.
Sub Menü() ' Menü anlegen
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oPopUpA As CommandBarPopup
Dim oPopUpB As CommandBarPopup
Dim oBtn As CommandBarControl
'doppelte Menüs vermeiden
Call menudelete
Set oBar = CommandBars.Add("BBI-Corporate_Design")
oBar.Position = msoBarTop
' Für jedes PopUp wird ein wieterer Untermenüpunkt erstellt
Set oPopUp = oBar.Controls.Add( _
Type:=msoControlPopup, _
Temporary:=False)
oPopUp.Caption = "BBI-CD"
Set oPopUpA = oPopUp.Controls.Add( _
Type:=msoControlPopup, _
Temporary:=False)
oPopUpA.Caption = "Corporate Color Setting"
Set oPopUpB = oPopUp.Controls.Add( _
Type:=msoControlPopup, _
Temporary:=False)
oPopUpB.Caption = "Format Chart"
Set oPopUpC = oPopUp.Controls.Add( _
Type:=msoControlPopup, _
Temporary:=False)
oPopUpC.Caption = "Special Chart"
' Für jeden oBtn wird ein ausführender Menüeintrag
' im angesprochenen PopUp erstellt
'3. Ebene
Set oBtn = oPopUpA.Controls.Add
With oBtn
.Caption = "On (Type: 1 or 2)"
.OnAction = "farbpalette_BBI"
.Style = msoButtonCaption
End With
Set oBtn = oPopUpA.Controls.Add
With oBtn
.Caption = "Off"
.OnAction = "reset_color"
.Style = msoButtonCaption
End With
Set oBtn = oPopUpA.Controls.Add
With oBtn
.Caption = "Show Active Color Setting"
.OnAction = "getColor"
.Style = msoButtonCaption
End With
Set oBtn = oPopUpA.Controls.Add
With oBtn
.Caption = "Change Setting"
.OnAction = "frmColors_show"
.Style = msoButtonCaption
End With
Set oBtn = oPopUpB.Controls.Add
With oBtn
.Caption = "Format Active Chart"
.OnAction = "BBI_Diagramm_formatieren"
.Style = msoButtonCaption
End With
Set oBtn = oPopUpB.Controls.Add
With oBtn
.Caption = "Scale Adjustment"
.OnAction = "AutoAdjustChart"
.Style = msoButtonCaption
End With
Set oBtn = oPopUpC.Controls.Add
With oBtn
.Caption = "Boxplot Neu (Daten selektieren!)"
.OnAction = "Boxplot_Chart_New"
.Style = msoButtonCaption
End With
Set oBtn = oPopUpC.Controls.Add
With oBtn
.Caption = "Boxplot Neu-Formatieren"
.OnAction = "Boxplot_Chart_neuformatieren"
.Style = msoButtonCaption
End With
'2. Ebene
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "About"
.OnAction = "AboutShow"
.Style = msoButtonCaption
End With
oBar.Visible = True
End Sub
Sub menudelete() ' Menü löschen
On Error Resume Next
CommandBars("BBI-Corporate_Design").Delete
End Sub
>
Anzeige