Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Imagem Vinculada por VBA não pode ser exibida

Dúvidas gerais sobre Excel
jhonnyfurman
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Set 30, 2020 11:03 am

Imagem Vinculada por VBA não pode ser exibida

Mensagem por jhonnyfurman »

Olá,

Estou com problema em um material que estou desenvolvendo.
Criei um código para adicionar uma imagem na minha planilha, atrelei ele a um botão para que a possoa pudesse clicar e selecionar a imagem que gostaria de adicionar.
Porém quando eu salvo e envio este excel para alguém, a pessoa não consegue ver a imagem, da um erro. Diz que "A imagem vinculada não pode ser exibida..."
erro.JPG
erro.JPG (16.46 KiB) Exibido 2183 vezes
Se eu tentar adicionar a foto pela função inserir, funciona perfeitamente, a pessoa que receber o arquivo vai conseguir vizualizar.
Acredito que o problema possa ser o código que estou usando para inserir a foto.

Alguém tem ideia de como solucionar este problema?
O codigo que estou usando é esse:

Código: Selecionar todos

	Sub imagem_sketch()


    Dim pict 'janela para selecionar imagem
    Dim imagem As Object 'Receber a imagem
    Dim formatoimagem As String ' defino os tipos de imagem
      
      
    formatoimagem = "Image Files JPG (*.jpg),*.jpg, Image Files PNG (*.png),*.png"
    pict = Application.GetOpenFilename(formatoimagem)
    If pict = False Then End

'Selecionar a célula onde será adicionada a imagem
    Range("L14").Select
    
'Adicionar a imagem na célula
     Set imagem = ActiveSheet.Pictures.Insert(pict)
    
'Colocar um nome na imagem
     imagem.Name = "imagem_1"
'Determinar a posição na celula
     imagem.Top = ActiveCell.Top + 1
     imagem.Left = ActiveCell.Left + 1
'Habilitar o redirecionamento
     imagem.ShapeRange.LockAspectRatio = msoFalse
     imagem.Height = 249
     imagem.Width = 493
    
'Volto para caddastro e finalizo
    ActiveWorkbook.Save
Desde ja, muito obrigado pela ajuda!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder