Microsoft Excel

Herbers Excel/VBA-Archiv

CommandBar Position

Betrifft: CommandBar Position von: matthias
Geschrieben am: 22.04.2008 20:20:24

Hi,

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



>

  

Betrifft: AW: CommandBar Position von: Horst
Geschrieben am: 22.04.2008 21:45:45

Hi,

Commandbars haben auch die Left und Top-Eigenschaften.

mfg Horst


 

Beiträge aus den Excel-Beispielen zum Thema "CommandBar Position"