Ir ao conteúdo
  • Cadastre-se

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


Posts recomendados

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


 

Link para o post
Compartilhar em outros sites

@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.

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!