none
Imagens inseridas via VBA excel estão ficando como vinculadas RRS feed

  • Pergunta

  • Bom dia,

    Estou tentando criar um macro para facilitar a inserção de imagens em uma planilha, 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

    terça-feira, 19 de junho de 2018 12:41