- 03 Abr 2020 às 16:27
#53484
Olá Gurus,
Arquivo roda perfeito conforme imagem abaixo, porem ao utlizar a função ( Compartilhar Pasta de Trabalho) dá ERRO ( Erro em tempo de execução '-2147467259(80004005)':
O método 'Width' do objeto 'ChartObject' falhou
imagem:
https://uploaddeimagens.com.br/imagens/4TbzD2s
Arquivo roda perfeito conforme imagem abaixo, porem ao utlizar a função ( Compartilhar Pasta de Trabalho) dá ERRO ( Erro em tempo de execução '-2147467259(80004005)':
O método 'Width' do objeto 'ChartObject' falhou
imagem:
https://uploaddeimagens.com.br/imagens/4TbzD2s
Código: Selecionar todos
Private Sub UserForm_Initialize()
Set CurrentChart = Sheets("Enter").ChartObjects(1).Chart
CurrentChart.Parent.Width = 180
CurrentChart.Parent.Height = 160
'converter objeto de gráfico em imagem gif
nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=nome, filtername:="GIF"
' mostrar grafico como imagem no objeto
Grafico1.Picture = LoadPicture(nome)
Set CurrentChart = Sheets("Enter").ChartObjects(2).Chart
CurrentChart.Parent.Width = 180
CurrentChart.Parent.Height = 160
'converter objeto de gráfico em imagem gif
nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=nome, filtername:="GIF"
' mostrar grafico como imagem no objeto
Grafico2.Picture = LoadPicture(nome)
End Sub