LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Almost got it Bob- Active Shhet.Picture problem

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

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

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Picture problem dwake Excel Discussion (Misc queries) 1 May 12th 10 07:40 PM
e-mail/copy 1 shhet Roger Excel Discussion (Misc queries) 1 August 18th 08 09:24 PM
1 Shhet Roger Excel Worksheet Functions 0 August 18th 08 08:05 PM
extact certain information from sheet 1 to shhet 2 columns e:e and hotlh Excel Worksheet Functions 2 November 20th 07 12:09 PM
Clear shhet with macro Micos3 Excel Discussion (Misc queries) 2 February 20th 06 05:50 PM


All times are GMT +1. The time now is 12:38 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"