grafico no userform


Gráfico no Userform

grafico no userform

Outro exemplo pedido pelos alunos é a visualização de gráficos conforme o usuário está usando um Userform.Apesar de existirem outras maneiras de fazer este exemplos, escolhemos uma delas por ser mais prática.
A macro vai capturar a imagem do seu gráfico, salvar esta imagem como “temp.gif” na mesma pasta do seu arquivo e buscar essa imagem para ser mostrada no Userform.
Em uma planilha, criamos alguns dados e um gráfico referente a estes dados. Vamos criar um Userform que contenha uma ferramenta Imagem do mesmo tamanho do gráfico que foi criado. Na macro de inicialização do userform vamos inserir o seguinte código:

Private Sub UserForm_Initialize()
‘Transfere para a variável Gráfico o 1º gráfico da planilha ‘Exemplo”

Set Gráfico = Sheets(“Plan1”).ChartObjects(1).Chart

‘Cria o caminho e nome para salvamento do arquivo GIF

ArquivoGIF = ThisWorkbook.Path & “\temp.gif”

‘Salva o gráfico como arquivo GIF

Gráfico.Export Filename:=ArquivoGIF, FilterName:=”GIF”

‘Carrega o gráfico salvo para o Controle Image1 do Userform

Image1.Picture = LoadPicture(ArquivoGIF)

End Sub

Confira se o seu gráfico realmente é o objeto 1: ChartObjects(1). Confirma também o nome da planilha e o nome da sua ferramenta de Imagem.

Baixar arquivo

Deixe uma resposta

O seu endereço de e-mail não será publicado.