Boa noite pessoal.
Não sei muito de VBA e ainda vou fazer um curso mas vou tentando aprender de curioso. Tenho um script para busca as fotos de uma lista de produtos. Mas quando outra pessoa abre o arquivo, as fotos não aparecem. O arquivo fica na rede e a pasta das fotos também (não na mesma pasta). Pesquisando na internet achei uma pessoa falando que para incorporar as fotos ao arquivo precisa usar o comando AddPicture. Tentei alterar o meu script mas não consegui, segue o meu script:
Sub InsertPic()
Dim pic As String 'ENDEREÇO
Dim myPicture As Picture
Dim rng As Range 'RANGE PARA ITERAR
Set rng = Range("M5") '1A CELULA DA FOTA
Do While rng.Offset(0, -
<> ""
pic = "C:\FOTOS_INTERNET\" & rng.Offset(0, -
& "_productr_1.jpg"
If Dir(pic) = "" Then GoTo prox 'VERIFICA SE EXISTE
Set myPicture = ActiveSheet.Pictures.Insert(pic)
With myPicture
.ShapeRange.LockAspectRatio = msoFalse
.Width = rng.Width - 1
.Height = rng.Height - 1
.Top = Rows(rng.Row).Top
.Left = Columns(rng.Column).Left
End With
prox: Set rng = rng.Offset(1, 0)
Loop
End Sub