Thx very much for your great answers . . . . .you left a great void in my head lolol

well by now i have another problem

how to reduce filesize? i tried using addpicture but it allways says "Object doesn support thsi property or method error 438"

Sub carregar_alcadoprinc()
    Dim I As Integer
    Dim filePath As String
        filePath = ActiveWorkbook.Path & "\l" & "1.jpg"
        Sheets("Relatório Sintese").Imagem4.Shapes.AddPicture filePath, True, msoCTrue, 100, 100, 100, 100
 End Sub
p.s. Imagem4 is a rectangular shape