Almost got it Bob- Active Shhet.Picture problem

[Richard1284]

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 t
come up(this is ok) HOWEVER i also want to delete the old pictur
already on the sheet(this is my problem). I have declared some global
and have tried to store the active sheet Picture in a cell, Have a loo
at my code....it is almost there but not quite, any ideas on how t
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 = sPi

 

[Bob Phillips]

Richard,

How about another approach?

What you could do is to load all of the pictures up front, and [park them
off-view. Each command button would move
back to the park, and then bring in the required one.

Dim sh As Shape

Fr Each sh In ActiveSheet.Shapes
'first make sure all parked
sh.Left = 5000
Next sh

With ActiveSheet.Shapes("picCB1")
.Left = 100
.Top = 100
End With

and similar code for each CB.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Tushar Mehta]

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