Macro to Auto Substitute Images

well i manage to find and put this to work:

[vba]
Sub carregar_alcadoprinc()
Dim I As Integer
Dim filePath As String
filePath = ActiveWorkbook.Path & "\l" & "1.jpg"
Sheets("Relatório Sintese").Imagem1.Picture = LoadPicture(filePath)
End Sub
[vba]

Now when i load it as the size of the image is larger then the image control i have another problem:

How do i make the image resize to the original size of the image control ? or yet to a specific size ?

thx in advanced

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"

Please Login or Register  to view this content.

p.s. Imagem4 is a rectangular shape