Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CommandBar Position

CommandBar Position
22.04.2008 20:20:24
matthias
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


>

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandBar Position
22.04.2008 21:45:00
Horst
Hi,
Commandbars haben auch die Left und Top-Eigenschaften.
mfg Horst
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige