About menu bars and so...

[Wil Moosa]

I have removed all menu bars from my project... and created a floating menu bar instead.

When I click this floating menu bar and push it against the upper, colored Excel bar (Microsoft Excel - Name of file.xls - X) a nice, integrated menu bar will be formed.

Is there a way to force this integrated menu bar to be formed automatically instead of manually?

 

[Juan Pablo González]

How are you creating this new menu bar ?

 

[Wil Moosa]

Sub Create_Menu()
Dim MyBar As CommandBar
Dim MyPopup As CommandBarPopup
Dim MyButton As CommandBarButton

Delete_Menu

Set MyBar = CommandBars.Add(Name:=" ", _
Position:=msoBarFloating, temporary:=True)

With MyBar
.Top = -15
.Left = 600
Set MyPopup = .Controls.Add(Type:=msoControlPopup)
With MyPopup
.Caption = "BUDGET PLANNER MENU"
.BeginGroup = True
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Budget Wizard"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Naar_rooster"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Sorteren op functie"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = False
.OnAction = "Sorteren_Functie"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Sorteren op Naam"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = False
.OnAction = "Sorteren_Naam"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Legenda"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Show_Legenda"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Verklaring Afkortingen"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Show_Afkortingen"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Help"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = False
.OnAction = "Naar_Help"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Afsluiten"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Afsluiten"
End With
End With


.Width = 500
.Visible = True
End With

End Sub

Sub Delete_Menu()
On Error Resume Next
CommandBars("My Menu").Delete
On Error GoTo 0
End Sub

 

[Wil Moosa]

The following adjusted code did it....

Sub Create_Menu()
Dim MyBar As CommandBar
Dim MyPopup As CommandBarPopup
Dim MyButton As CommandBarButton

Delete_Menu

Set MyBar = CommandBars.Add(Name:=" ", _
Position:=msoBarTop, temporary:=True)
Rem Position:=DmsoBarTop, temporary:=True)
Rem Position:=msoBarFloating, temporary:=True)

With MyBar
.Top = -15
.Left = 600
Set MyPopup = .Controls.Add(Type:=msoControlPopup)
With MyPopup
.Caption = "BUDGET PLANNER MENU"
.BeginGroup = True
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Budget Wizard"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Naar_BudgetWizard"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Budget berekening"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Naar_salarisgegevens"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Overzicht O.R.T."
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = False
.OnAction = "ORT_Overzicht"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Legenda"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Show_Legenda"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Verklaring Afkortingen"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Show_Afkortingen"
End With

Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Help"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = False
.OnAction = "Naar_Help"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Afsluiten"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Afsluiten"
End With
End With


Rem .Width = 500
.Visible = True
End With

End Sub