Início
![[Resolvido]Menu relatório com opção exportar para Excel Empty](https://2img.net/i/empty.gif)
gilberlanio 6/4/2020, 15:16Olá pessoal, gosteria da ajuda de vocês. Uso esse módulo para chamar o menu relatório com clique do botão direito do mouse.
Gostaria de acrescentar no menu a opção: "Exportar para o Excel"
Algum dica?
Gostaria de acrescentar no menu a opção: "Exportar para o Excel"
Algum dica?
- Código:
Sub fncMenu()
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl
' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("AtalhoRelatorio", msoBarPopup, False, True)
With cmbRightClick
' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Impressão Rápida"
' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Selecionar Impressora"
' Add the Page Setup... command.
Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Configurar Página"
' Add the Mail Recipient (as Attachment)... command.
Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Enviar como anexo no e-mail"
' Add the PDF or XPS command.
Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Salvar como PDF/XPS"
' Add the Close command.
Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Fechar Relatório"
End With
Set cmbControl = Nothing
Set cmbRightClick = Nothing
End Sub
![[Resolvido]Menu relatório com opção exportar para Excel Favicon-16x16](https://www.udemy.com/staticx/udemy/images/v8/favicon-16x16.png)
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]![[Resolvido]Menu relatório com opção exportar para Excel Yt_16x10](https://i.servimg.com/u/f16/19/98/66/47/yt_16x10.png)
Conheça meu canal no Youtube e se inscreva.![[Resolvido]Menu relatório com opção exportar para Excel Marcel11](https://i.servimg.com/u/f16/19/98/66/47/marcel11.png)
) 