Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Run Time error '481' Invalid Picture

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
RodrigoSampaio



Mensagens : 2
Data de inscrição : 22/04/2015

MensagemAssunto: Run Time error '481' Invalid Picture   Qua Abr 22, 2015 1:04 am

Boa noite a todos,

Tenho um arquivo com 16 graficos em uma sheet, tenho que mostrar os graficos atravez de um userform, tem momento que o arquivo funciona mas tem momento que da o seguinte erro "Run Time error '481' Invalid Picture" na hora que o cara escolhe o grafico a ser visto no form

ja tentei exportar a imagem como gif ou bmp e da o mesmo erro, tb ja tentei exportar a imagem
na pasta do C:\Windows\Temp e o erro persiste

estou usando código abaixo, ja tentei de tudo se alguem puder dar uma luz obrigado

Private Sub ComboBox1_Change()
If ComboBox1.Text = "PLOT01" Then

   Image1.Picture = LoadPicture("")
   Set CurrentChart = Sheets("CHART").ChartObjects(1).Chart
   CurrentChart.Parent.Width = 438
   CurrentChart.Parent.Height = 222
   'converter objeto de gráfico em imagem gif
   nome = ThisWorkbook.Path & Application.PathSeparator & "temp.jpg"
   CurrentChart.Export Filename:=nome, filtername:="JPG"
   ' mostrar grafico como imagem no objeto image1
   Image1.Picture = LoadPicture(nome)

end if


Última edição por RodrigoSampaio em Qua Abr 22, 2015 1:09 am, editado 1 vez(es) (Razão : adcionar informações relevantes)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Run Time error '481' Invalid Picture   Qua Abr 22, 2015 5:22 pm

Bom dia!!

Ao menos para mim tentar te ajudar, seria melhor ter seu arquivo modelo.

No trabalho eu não consigo acessar sites de hospedagem de arquivo...

Junte se a nós em:
http://gurudoexcel.com/forum/index.php
Após seu cadastro abra um post em Macros e VBA, lá anexe seu arquivo modelo!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
RodrigoSampaio



Mensagens : 2
Data de inscrição : 22/04/2015

MensagemAssunto: Solução   Qua Abr 22, 2015 11:47 pm

Boa tarde Alexandre,

acabei encontrando uma solução, muito obrigado, segue abaixo o código

Solução:

é so da um loop da sheet onde esta os gráficos e gerar todas as imagens de uma vez, em seguida eu carrego só a imagem que eu necessito no image1.Picture = LoadPicture()

For Each cht In Sheets("CHART").ChartObjects
       cht.Activate
       cht.Chart.Export "C:\Users\erosamp\SON_Report_Generator_INTERFACE\grp_" & i & ".jpg"
       i = i + 1
Next


quando eu usava o Código anterior não sei porque mas em algum momento a imagem é criada com 0kb, assim acontece o erro

no meu caso tenho 22 graficos que o cara escolhe qual quer ver no grafico, acredito que se tenha um ou duas imagens o codigo anterior não dê problema


Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Run Time error '481' Invalid Picture   Qui Abr 23, 2015 1:48 pm

Bom dia!

Eu fico feliz que resolveu, obrigado por retornar.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Run Time error '481' Invalid Picture   Hoje à(s) 10:50 pm

Voltar ao Topo Ir em baixo
 
Run Time error '481' Invalid Picture
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido]Run-time error '-2147024894 (80070002)':
» Idéia de Camisa do Time para Projeto Vida Do futebol
» Error opening file for writing. {Ajudem - me}
» Solucionando o problema: "Unexpected error occured when running the game."
» [tutorial] Usando time lines

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: