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!

MS Excel – XlChartType – Tipos de gráficos

Quando você deseja disponibilizar ao seu cliente a opção de escolher o tipo de gráfico com o qual

efetuar análises, você precisa mudar o valor de XlChartType com um valor ou o nome. Listei-os

abaixo para poupar o seu tempo.

With objChart.Chart

.ChartArea.AutoScaleFont = False

.ChartType = xlXYScatterLines

End With

' Nome Valor Descrição

' xl3DArea -4098 Área 3D.

' xl3DAreaStacked 78 Área sobreposta 3D.

' xl3DAreaStacked100 79 Área 100% sobreposta.

' xl3DBarClustered 60 Barra agrupada 3D.

' xl3DBarStacked 61 Barra sobreposta 3D.

' xl3DBarStacked100 62 Barra 100% sobreposta 3D.

' xl3DColumn -4100 Coluna 3D.

' xl3DColumnClustered 54 Coluna agrupada 3D.

' xl3DColumnStacked 55 Coluna sobreposta 3D.

' xl3DColumnStacked100 56 Coluna 100% sobreposta 3D.

' xl3DLine -4101 Linha 3D.

' xl3DPie -4102 Pizza 3D.

' xl3DPieExploded 70 Pizza destacada 3D.

' xlArea 1 Área

' xlAreaStacked 76 Área sobreposta.

' xlAreaStacked100 77 Área 100% sobreposta.

' xlBarClustered 57 Barra agrupada.

' xlBarOfPie 71 Barra de pizza.

' xlBarStacked 58 Barra sobreposta.

' xlBarStacked100 59 Barra 100% sobreposta.

' xlBubble 15 Bolha.

' xlBubble3DEffect 87 Bolha com efeitos 3D.

' xlColumnClustered 51 Coluna agrupada.

' xlColumnStacked 52 Coluna sobreposta.

' xlColumnStacked100 53 Coluna 100% sobreposta.

' xlConeBarClustered 102 Barra cônica agrupada.

' xlConeBarStacked 103 Barra cônica sobreposta.

' xlConeBarStacked100 104 Barra cônica 100% sobreposta.

' xlConeCol 105 Coluna cônica 3D.

' xlConeColClustered 99 Coluna cônica agrupada.

' xlConeColStacked 100 Coluna cônica sobreposta.

' xlConeColStacked100 101 Coluna cônica 100% sobreposta.

' xlCylinderBarClustered 95 Barra cilíndrica agrupada.

' xlCylinderBarStacked 96 Barra cilíndrica sobreposta.

' xlCylinderBarStacked100 97 Barra cilíndrica 100% sobreposta.

' xlCylinderCol 98 Coluna cilíndrica 3D.

' xlCylinderColClustered 92 Coluna cônica agrupada.

' xlCylinderColStacked 93 Coluna cônica sobreposta.

' xlCylinderColStacked100 94 Coluna cilíndrica 100% sobreposta.

' xlDoughnut -4120 Rosca.

' xlDoughnutExploded 80 Rosca destacada.

' xlLine 4 Linha.

' xlLineMarkers 65 Linha com marcadores.

' xlLineMarkersStacked 66 Linhas sobrepostas com marcadores.

' xlLineMarkersStacked100 67 Linha 100% sobreposta com marcadores.

' xlLineStacked 63 Linhas sobrepostas.

' xlLineStacked100 64 Linha 100% sobreposta.

' xlPie 5 Pizza.

' xlPieExploded 69 Pizza destacada.

' xlPieOfPie 68 Pizza de pizza.

' xlPyramidBarClustered 109 Barra piramidal agrupada.

' xlPyramidBarStacked 110 Barras piramidais sobrepostas.

' xlPyramidBarStacked 100 111 Barra piramidal 100% sobreposta.

' xlPyramidCol 112 Colunas piramidais 3D.

' xlPyramidColClustered 106 Colunas piramidais agrupadas.

' xlPyramidColStacked 107 Colunas piramidais sobrepostas.

' xlPyramidColStacked100 108 Colunas piramidais 100% sobrepostas.

' xlRadar -4151 Radar.

' xlRadarFilled 82 Radar preenchido.

' xlRadarMarkers 81 Radar com marcadores de dados.

' xlStockHLC 88 Alta-Baixa-Fechamento.

' xlStockOHLC 89 Abertura-Alta-Baixa-Fechamento.

' xlStockVHLC 90 Volume-Alta-Baixa-Fechamento.

' xlStockVOHLC 91 Volume-Abertura-Alta-Baixa-Fechamento.

' xlSurface 83 Superfície 3D.

' xlSurfaceTopView 85 Superfície (Vista de Cima).

' xlSurfaceTopViewWireframe 86 Superfície (esboço da vista de cima).

' xlSurfaceWireframe 84 Superfície 3D (esboço).

' xlXYScatter -4169 Dispersão.

' xlXYScatterLines 74 Dispersão com linhas.

' xlXYScatterLinesNoMarkers 75 Dispersão com linhas e sem marcadores de dados.

' xlXYScatterSmooth 72 Dispersão com linhas ajustadas.

' xlXYScatterSmoothNoMarkers 73 Dispersão com linhas ajustadas e sem marcadores de dados.