Macro to Auto Substitute Images

[homasa]

Hello PPl,

i am fairly new at vba, and as a rookie it is very difficult to sometimes find information about what we want.

well i am trying to make an macro that

1) will update some Pictures that i have in a specific sheet,
2) loads the images existing in the same directory where the xlsm is, therefore if i move the xlsm than the images must go along with it. or else:
3) If one of them doesnt exist then it shows only an blank file

Is this possible ?

i wanna to update pre-existing images because thei are pre-formated. so if you know a better way please hel me.

Thx in advanced

[homasa]

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

[homasa]

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