Este fórum está sendo desativado

[WarleySCCCO]

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

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