Notifications

Clear all

Imagens inseridas via VBA excel estão ficando como vinculada

2024 - VBA & Macros

Post Recente por boobymcgee 7 anos atrás

9 Posts

3 Usuários

0 Reactions

2,576 Visualizações

RSS

Pvt35

(@pvt35)

Posts: 4

New Member

Topic starter

Bom dia,

Estou tentando criar um macro para facilitar a inserção de imagens em uma planilha ao clicar em um botão, porem quando fecho a planilha e envio, está ficando vinculado a imagem e aparece erro. ("A imagem vinculada não pode ser exibida. Talvez o arquivo tenha sido movido, renomeado ou excluído. Verifique se o vinculo aponta para o arquivo e local corretos.")

Alguém poderia ajudar ? Segue o código.

Obrigado

 Sub Botão3_Clique()
Dim Pict
Dim Imagem As Object
Dim Img As String
Dim Celula As String

Celula = "B22:E34"

Img = "Image Files JPG (*.jpg),*.jpg, Image Files GIF (*.gif),*.gif, Image files BMP (*.bmp),*.bmp"

Pict = Application.GetOpenFilename(Img)

If Pict = False Then End

Set Imagem = ActiveSheet.Pictures.Insert(Pict)

Imagem.Top = Range(Celula).Top
Imagem.Left = Range(Celula).Left
Imagem.ShapeRange.LockAspectRatio = msoFalso

Imagem.Height = Range(Celula).Height * 1 ' linhas
Imagem.Width = Range(Celula).Width * 1 'colunas
End Sub

Postado : 19/06/2018 8:17 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Pvt35,

Bom dia!

Seja muito bem vindo (a) ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Algumas solicitações especiais que pedimos, por gentileza, ficar atento:
1 - Não inserir no titulo de suas postagens expressões como Help, Ajuda, etc. O título deve ser um resumo da sua necessidade para que outras pessoas que tenham a mesma dúvida possam efetuar a pesquisa e achar como foi resolvido.
2 - Não insira em suas mensagens frases todas escritas em letras maiúsculas. Isso, na Internet, é compreendido como gritos e muitos usuários sequer respondem somente por esse fato!
3 - Insira sempre um arquivo exemplo compactado com .ZIP aqui mesmo no fórum. Existe, logo abaixo da caixa de mensagens, uma aba chamada "Adicionar um anexo" para essa finalidade. O arquivo exemplo deve ser pequeno, com apenas 5 linhas no máximo, compactado com .ZIP e ter o mesmo layout (nome do arquivo, nome das abas/guias/folhas, mesma linha/coluna onde os dados se iniciam) do arquivo original. Links de arquivos enviados para sites de compartilhamento de arquivos, muitas vezes são bloqueados pelas empresas, por conterem muitos vírus. Alguns usuários que acessam o fórum a partir de empresas não conseguem baixar tais arquivos.
4 - Não utilize a ferramenta CITAR para inserir o inteiro teor das mensagens que lhe são encaminhadas como resposta. Citações, se estritamente necessárias ao entendimento da mensagem que você quer enviar, devem ser apenas de pequenos trechos das mensagens.
5 - Se for postar códigos VBA aqui no fórum, utilize a ferramenta CODE localizada logo no início da caixa de mensagens (quinto botão da esquerda para a direita). As linhas de código devem ficar entre as palavras "CODE e /CODE".
6 - Agradeça sempre às pessoas que lhe responderam e às mensagens que atenderam a necessidade de sua demanda. Esse agradecimento deve ser clicando na mãozinha que fica localizada ao lado da ferramenta CITAR. Lembre-se: o fórum é gratuito e esse é o único incentivo para as pessoas que prestam ajuda. Você pode agradecer a quantos usuários quiser.
7 - O título ou o texto das mensagens postadas não devem ser escritos todo em letras maiúsculas. Na internet, tudo escrito em letras maiúsculas é interpretado como gritos e muitos usuários sequer olham para esse tipo de mensagem.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 19/06/2018 8:33 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Pvt35,

Quanto a sua demanda, não sei o que está ocorrendo por aí. Refiz seu exemplo aqui e não deu qualquer tipo de erro, inclusive tirando a igame do local onde peguei para um outro local. Veja se consegue abrir normalmente aí.

Inserir Imagens via VBA.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 19/06/2018 8:48 am

Pvt35

(@pvt35)

Posts: 4

New Member

Topic starter

Wagner,

Muito obrigado pelo retorno.
Olha como estou simulando:
1º Adiciono a imagem via macro, e ela vai para a célula destinada.
2º Salvo o arquivo e fecho.
3º mando a imagem original para a lixeira.
4º Reabro o arquivo.

A imagem some e fica apenas o texto de erro.

Obrigado pela ajuda.

Postado : 19/06/2018 9:18 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Pvt35,

Fiz do mesmo jeito que você fez e aqui não ocorreu esse problema.

Você abriu o arquivo que lhe enviei? Se abir corretamente aí é porque o problema é outro.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 19/06/2018 9:24 am

Pvt35

(@pvt35)

Posts: 4

New Member

Topic starter

Wagner,

Sim, com o seu arquivo aconteceu a mesma coisa.
Até estou mandando ele em anexo com a falha presente, adicionei um botão só de diferente...

Postado : 19/06/2018 10:13 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Pvt35,

Boa tarde!

Entendi... nesse caso, creio que você deverá enviar junto a imagem que foi anexada na planilha. Envio o arquivo de imagem agora junto e você salva os dois na mesma pasta e tenta abrir para ver o que ocorre.

Arquivos.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 19/06/2018 10:45 am

Pvt35

(@pvt35)

Posts: 4

New Member

Topic starter

Wagner,

Boa tarde.

Entendi a sua resposta, porem é justamente isso que quero evitar, gostaria de enviar só a planilha. (porque em cada planilha, vai 40 fotos , e não é sempre a mesma..)
De qualquer forma, agradeço a ajuda até o momento e vou continuar pesquisando um pouco mais.

Obrigado

Postado : 19/06/2018 10:48 am