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