See the response to the other discussion on the same subject in the
same newsgroup.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article , Richard1284
says...
Hi all,

Thanks for your help so far however I am still stumped.
I have 4 cmdButtons, As each one is clicked I want a new picture to
come up(this is ok) HOWEVER i also want to delete the old picture
already on the sheet(this is my problem). I have declared some globals
and have tried to store the active sheet Picture in a cell, Have a look
at my code....it is almost there but not quite, any ideas on how to
improve this.....

---------------------------------------------------
Public myPic As Picture '
Public sPic As String

Sub InsertPic1()
sPic = Sheets("Main").Cells(100, 6).Value

If sPic < "" Then
Set myPic = ActiveSheet.Pictures(sPic)
myPic.Delete
End If

sPic = ("F:\Dss\ass\Arran1.jpg")
Sheets("Main").Select
Range("D16").Select
Set myPic = ActiveSheet.Pictures.Insert(sPic)
Sheets("Main").Cells(100, 6).Value = sPic


---
Message posted from http://www.ExcelForum.com/