MS Excel – Criando Menu com VBA

Podemos criar menus para a utilização dos nossos usuários focando

algumas especialidades nas nossas aplicações.

 

Através destas opções direcionamos ações específicas.

 

Sub Create_Menu()

' Define as variáveis.

Dim MyBar As CommandBar

Dim MyPopup As CommandBarPopup

Dim MyButton As CommandBarButton

 

' Deleta o menu anterior.

Delete_Menu

 

' Cria a Barra com um nome.

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

 

' Atribui diversas características a barra de ferramentas.

With MyBar

Let .Top = 0

Let .Left = 0

Set MyButton = .Controls.Add(Type:=msoControlButton)

 

' PRIMEIRO BOTÃO.

With MyButton

Let .Caption = "&Criando Gráficos"

Let .Style = msoButtonCaption

Let .BeginGroup = True

Let .OnAction = "AssembleChart"    ' Nome da função.

End With

 

' SEGUNDO BOTÃO.

Set MyButton = .Controls.Add(Type:=msoControlButton)

With MyButton

Let .Caption = "&Rotacionando Gráfico"

Let .Style = msoButtonCaption

Let .BeginGroup = True

Let .OnAction = "RotationChart"    ' Nome da função.

End With

Let .Width = 100

Let .Visible = True

End With

End Sub

 

Sub Delete_Menu()

On Error Resume Next

CommandBars("Grafico").Delete

On Error GoTo 0

End Sub

 

Divirtam-se!

 

 

 

Divirta-se!