Ótimo conceito, obrigado. Porém; em um trabalho mais elaborado, onde o tamanho desse gráfico é variável, com maior ou menor numero de linhas, como procedo para que esse ajuste seja automático. Sei que existem opções na própria configuração do Excel, contudo após "mandar" um gráfico com 10 linhas, não consigo ajustar um com 2 linhas por exemplo.
Olá! Primeiramente Gostaria de agradecer a sua contribuição. Muito bom! Eu já rescrvi esse código por um minimo de 10 vezes e faço ingualzinho, mas sepre dpa Erro! Já não sei mais o que fazer. Sub Carregar_Grafico() On Error GoTo Erro Planilha5.Activate Dim Plan As String Plan = Planilha5.Name Dim PastaNome As String currentChart = Sheets(Plan).ChartObjects(1).Activate Set currentChart = Sheets(Plan).ChartObjects(1).Chart PastaNome = ThisWorkbook.Path & Application.PathSeparator & "Grafico.gif" currentChart.Export Filename:=PastaNome, filtername:="GIF" Image1.Picture = LoadPicture(PastaNome) Planilha1.Activate Exit Sub Erro: MsgBox "Erro!", vbCritical, "Erro" End Sub Private Sub UserForm_Initialize() Call Carregar_Grafico End Sub
É +/- assim que faço a pré-visualizacao da impressão ? Ensina por favor, obrigado th-cam.com/video/vMWh4qI3H8Q/w-d-xo.html minuto 05:50 Pra você ver o que estou falando
Muito bom. Ótima explicação. Como faço para mais de um gráfico hospedado na mesma planilha. Exibir os dois ou mais gráficos.
Boa noite, obrigado, pode colocar mais de um objeto image no formulário e replicar o código para carregar mais de um gráfico.
Muito boa explicação, excelente aula. Fiquei com uma duvida, posso colocar o botão de carregamento do gráfico diretamentamente no formulário ou menu ?
Boa tarde, obrigado, pode ser acionado através de botão de comando também.
salvou mano
Que bom.
Show!!!
Obrigado
Ótimo conceito, obrigado. Porém; em um trabalho mais elaborado, onde o tamanho desse gráfico é variável, com maior ou menor numero de linhas, como procedo para que esse ajuste seja automático. Sei que existem opções na própria configuração do Excel, contudo após "mandar" um gráfico com 10 linhas, não consigo ajustar um com 2 linhas por exemplo.
Bom dia, obrigado, tem outro vídeo abordando gráfico variável. Segue link: th-cam.com/video/romU_MS2bKs/w-d-xo.html
Boa noite.
Como saber sobre cada comando e pra que eles serve??
Bom dia, não entendi exatamente sua dúvida.
071982048010
Olá! Primeiramente Gostaria de agradecer a sua contribuição. Muito bom!
Eu já rescrvi esse código por um minimo de 10 vezes e faço ingualzinho, mas sepre dpa Erro!
Já não sei mais o que fazer.
Sub Carregar_Grafico()
On Error GoTo Erro
Planilha5.Activate
Dim Plan As String
Plan = Planilha5.Name
Dim PastaNome As String
currentChart = Sheets(Plan).ChartObjects(1).Activate
Set currentChart = Sheets(Plan).ChartObjects(1).Chart
PastaNome = ThisWorkbook.Path & Application.PathSeparator & "Grafico.gif"
currentChart.Export Filename:=PastaNome, filtername:="GIF"
Image1.Picture = LoadPicture(PastaNome)
Planilha1.Activate
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "Erro"
End Sub
Private Sub UserForm_Initialize()
Call Carregar_Grafico
End Sub
Boa tarde, obrigado, deixe seu e-mail que envio a planilha da aula.
@@CanalSGP edneipaula@gmail.com
Bom dia, planilha enviada.
Meu código tá reconhecendo o "currentChart" como se fosse uma variável. Por que?
Bom dia, teste colocar acima Dim currentChart as Variant
É +/- assim que faço a pré-visualizacao da impressão ?
Ensina por favor, obrigado
th-cam.com/video/vMWh4qI3H8Q/w-d-xo.html minuto 05:50
Pra você ver o que estou falando
Bom dia, infelizmente ainda não temos conteúdo sobre essa necessidade, mas vamos estudar futuramente.