Macro : Delete/Remove Only 4 Pictures..

[muhammad susanto]

hi all...

i have 5 pictures in a sheet..i want remove only 4 pict...
how do make it in macros..
here this code but delete all pict..

Sub Kill_Pictures()For Each Shape In ActiveSheet.Shapes
If Left(Shape.Name, 7) = "Picture" Then
 Shape.Delete
End If
Next
End Sub

i would like someone help me.

this attachment file :
https://app.box.com/s/335mvkore06iypb560mr1dw34fca771z

thanks a lot before...

m.susanto

 

[mrshl9898]

Like this?

Sub Kill_Pictures()
For Each Shape In ActiveSheet.Shapes
If Shape.Name = "Picture 9" Or Shape.Name = "Picture 10" Or Shape.Name = "Picture 11" Or Shape.Name = "Picture 12" Then
 Shape.Delete
End If
Next
End Sub

Or

Sub Kill_Pictures()For Each Shape In ActiveSheet.Shapes
If Shape.Name <> "Picture 1" Then
 Shape.Delete
End If
Next
End Sub