Pessoal, bom dia. Tudo bem?

Estou usando o código abaixo para mostrar um gráfico dentro da Userform, mas tive um problema ao colocar a planilha na rede. Não são todas as pessoas que têm privilégios de gravação no disco onde a planilha foi disponibilizada, então gera um erro quando o arquivo vai criar a imagem temporária. Alguém tem outra maneira de fazer esse gráfico ou sabe como me ajudar a solucionar o problema?

Private Sub UserForm_Activate()
Sheet70.PivotTables("PivotTable4").PivotCache.Refresh
 'Transfere para a variável Gráfico o 1º gráfico da planilha 'Exemplo"

Set Gráfico = Sheets("nº de atendimento brigada").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

Muito obrigado.

Jean