VBA to Delete Picture fro Sheet

SaraO · Feb 12th 2016

Hi,

I have a payment receipt template that inserts a picture of a stamp "Paid in Full" when a payment is applied.

I recorded a Macro to delete that picture, but every time the code inserts the picture it gives it a new name (Picture 48, next time the picture is inserted it is Picture 49....).

How can this code be modified to delete the picture no mater what the name is? The original picture name is "paid_in_full-stamp.png".

Here are both of my codes...

Code

Sub PaidInFull()
    Range("N22").Select
    
    ActiveSheet.Pictures.Insert("C:\Users\Sarah\Desktop\NewProgram\paid-in-full-stamp.png").Select
    Selection.ShapeRange.ScaleWidth 0.5832988513, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.ScaleHeight 0.5832988901, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.IncrementLeft -1000
    Selection.ShapeRange.IncrementTop -200
    
    Range("N22").Select
End Sub


Sub Macro7()
    ActiveSheet.Shapes.Range(Array("Picture 48")).Select
    Selection.Delete
End Sub

Display More

Grimes0332 · Feb 12th 2016

Re: VBA to Delete Picture fro Sheet

You can use the ordinal number of the shape to delete it.

If there's only the 1 picture/shape:

Code

activesheet.shapes(1).delete

If more than 1 picture and the 'Paid' pic is the last one added:

Code

activesheet.shapes(activesheet.shapes.count).delete

You could always name the shape when you add it and then use the name instead of the ordinal number in the first example, but simplest ideas first...

SaraO · Feb 12th 2016

Re: VBA to Delete Picture fro Sheet

Second code works beautifully!!

Thank you so much!!

VBA to Delete Picture fro Sheet

Participate now!

Share

Users Viewing This Thread