VBA code to delete all pictures but one that matches the workbook name

Moe Kadhom · Apr 19th 2016

Hi
I have below code that deletes all pictures but the one that is called "PNG".

Code

Option Explicit


Sub test()


    Dim pic As Picture
    
    For Each pic In ActiveSheet.Pictures
        If pic.Name <> "PNG" Then
            pic.Delete
        End If
    Next pic
    
End Sub

Display More

What I want it to replace the work "png" with the current active workbook name.

Can one of you wonderful people modify the code?

thanks for your help

sktneer · Apr 19th 2016

Re: VBA code to delete all pictures but one that matches the workbook name

If the pictures name also include the file extension, you may simply try like....

If pic.Name <> ActiveWorkbook.Name Then

And if the picture name doesn't include the file extension, you may try like.....

Code

Sub test()
     
    Dim pic As Picture
    Dim wbName As String
    wbName = WorksheetFunction.Replace(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, "."), 5, "")
     
    For Each pic In ActiveSheet.Pictures
        If pic.Name <> wbName Then
            pic.Delete
        End If
    Next pic
     
End Sub

Display More

Moe Kadhom · Apr 19th 2016

Re: VBA code to delete all pictures but one that matches the workbook name

Thanks
This is working great. I used the name without extension code.

I forgot to mention this in my original post but I have a picture in the workbook that I do not want to delete. It is called "crown".

can you modify the code so it does not delete the "crown" picture and the one that is same name as the workbook?

thanks for your help

sktneer · Apr 20th 2016

Re: VBA code to delete all pictures but one that matches the workbook name

Try this.....

Code

Sub test()
     
    Dim pic As Picture
    Dim wbName As String
    wbName = WorksheetFunction.Replace(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, "."), 5, "")
     
    For Each pic In ActiveSheet.Pictures
        If pic.Name <> wbName And LCase(pic.Name) <> "crown" Then
            pic.Delete
        End If
    Next pic
     
End Sub

Display More

Moe Kadhom · Apr 20th 2016

Re: VBA code to delete all pictures but one that matches the workbook name

Awesome. works perfectly

thank you very much for your help

sktneer · Apr 21st 2016

Re: VBA code to delete all pictures but one that matches the workbook name

You're welcome. Glad I could help.

VBA code to delete all pictures but one that matches the workbook name

Participate now!

Share

Users Viewing This Thread