Changing Images With VBA

[Coach3131]

I am trying to write a macro where I can change images for a picture file. I can do the insert method, but if I change pictures and run it again, it just inserts the next picture on top of it instead of changing the current image. Can anyone help here?

 

[Taul]

An alternative approach would be to leave all 5 images on the page and play with the visibility property, like

place the images on the sheet and give each image a "Name"

If Range("d9") = "Domestic" Then
Shapes("pic1").Visible = True
Shapes("pic2").Visible = False
End if

you can play with the if statement to turn the visibility of the images on and off depending on other cell conditions

 

[Coach3131]

Paul,

I just used 5 as an example. I would want to create reports where I can pick my report and swap out the images based on that. So, some will be static and some will be dynamic based on the report selection.

 

[Coach3131]

The error in the original code is because it is a msoLinkedPicture and not a msoPicture

 

[jolivanes]

Sub DeleteSomeNotAll() 
    For Each mypicture In ActiveSheet.Shapes 
        Select Case mypicture.Name 
        Case "Button 5", "Button 11", "Text Box 36", "Button 48"  '<----- Not to be deleted
             ' do nothing
        Case Else 
            mypicture.Delete 
        End Select 
    Next mypicture 
End Sub

This is how I do it. There might be, or certainly will be, better ways.

John

 

[Coach3131]

Thanks John... I think I can do a variation between both suggestions... I can loop through a range and set all pictures to change as a variable.