Visual Basic Erro 481: Invalid picture - Carregar imagem de um gráfico em um form vba

[DECOVIOTI]

Olá Pessoal

 

Estou tendo problemas para mostrar corretamente os gráficos em um form vba Tenho 11 gráficos.
Eu já tentei maneiras diferentes. Na máquina o código vba funciona bem, mas quando outro usuário tenta acessar via OneDrive. Recebe a mensagem de erro.

 

Alguem pode me ajudar?

 

Private Sub UpdateChart()    
    'Save the chart in the GIF format
    'Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\temp_chart.jpg"
    
    'On Error Resume Next
    'On Error GoTo 0
    
    Set CurrentChart = Sheets(".").ChartObjects(ChartNum).Chart
    
    CurrentChart.Parent.Width = 670
    CurrentChart.Parent.Height = 360
    
    CurrentChart.Export Filename:=FName, FilterName:="jpg"
    
    '   Load the chart to the form
    Image1.Picture = LoadPicture(FName)
    
End Sub

 

[AfonsoMira]

@DECOVIOTI Boas, eu penso que tenha algo a ver com seguinte linha:
 

 FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\temp_chart.jpg"

 

Pois o caminho, vai alterar de utilizador para utilizador.

[Philipe Araujo]

@InforMirapode me ajudar em um arquivo vba para criar etiquetas qrcode?

eu já criei um tópico.