Oi programadores vba, no artigo de hoje vou ensinar uma forma de apresentar seu gráfico no UserForm VBA. Isso consiste em mostrar no controle image, o gráfico de uma determinada planilha selecionada.

Antes de continuar lendo esse artigo, gostaria de ressaltar que temos uma seção de comentários logo a baixo. Caso você tenha dúvidas a respeito desse artigo, deixe seu comentário que estarei respondendo em breve.

Se o artigo for útil para você, não esqueça de compartilhar o post com seus amigos. Além de ajudar outras pessoas que possam ter a mesma dúvida que a sua, estará contribuído com grande força para nosso canal!

Aprenda Como Apresentar Gráficos Em Um UserForm VBA

Para esse exemplo, criamos o gráfico em uma nova planilha e depois disso, a renomeei para Gráficos. Recomendo que siga o exemplo, e só então passe-o para o projeto que você deseja realizar essa implementação.

Recomendo que não renomeie o nome da planilha com acentos!

Após criar seu gráfico precisamos adicionar um novo UserForm, e inserir alguns controles no mesmo. Para esse exemplo vamos precisar de um controle de imagem, para visualizar o gráfico no formulário:

imagell Apresentar

Agora precisamos de dois botões de comando, Insira o primeiro botão e na sua propriedade (NAME) vamos renomear para NextButton. Insira o segundo botão, e na propriedade (NAME) renomeie para CloseButton.

asdadaasd Apresentar

Agora vamos trabalhar o código, dê um duplo click no formulário para abrir e exibir o código. Fazendo isso, sera apresentado em seu editor VBA o evento a seguir, apague-o e adicione o código a baixo:

Private Sub UserForm_Click ()

End Sub

Dim ChartNum As Integer 

Private Sub grafico_Initialize () 
Se ChartNum = 3 Então ChartNum = 1 Else ChartNum = ChartNum + 1 
UpdateChart 
End Sub 


Private Sub PreviousButton_Click () 
    Se ChartNum = 1 Then ChartNum = 1 Else ChartNum = ChartNum - 1 
    UpdateChart 
End Sub 


Private Sub NextButton_Click () 
    Se ChartNum = 3 Então ChartNum = 1 Else ChartNum = ChartNum + 1 
    UpdateChart 
End Sub 

Private Sub BotaoFecha_Click () 
    unload Me 
    Application.Visible = True 
End Sub 

Private Sub UpdateChart () 
    Definir CurrentChart = Sheets ( "Gráficos"). ChartObjects (ChartNum) .Chart
    CurrentChart.Parent.Width = 425 
    CurrentChart.Parent.Height = 180 
'Salvar gráfico como GIF 
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" 
    CurrentChart.Export Matrícula: = Fname, FilterName: = "GIF" 

"Mostrar o gráfico 
    Image1.Picture = LoadPicture (Fname) 
End Sub

Pronto nosso código estar pronto, após clicar no botão GERAR o gráfico sera apresentado em seu userform.

hmjh Apresentar

Teve duvidas?  baixe a planilha de referencia criada para esse artigo ou então, entre em contato comigo pelo nosso chat responderemos você o mais breve possível bons estudos e ate a próxima galera.

→Clique Aqui Para Baixar Esse Exemplor

Tags:

Sobre o Autor

Welisson Silva
Welisson Silva

Analista de Sistemas, trabalha com TI desde 2014. Especializado em Vendas Online, desenvolvedor, programador, guitarrista e entusiasta de tudo que envolva tecnologia.

7 Comentários

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *