View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
DaveJones DaveJones is offline
external usenet poster
 
Posts: 4
Default Inserted picture name

Thanks All
Easy when you know how!

"Peter T" wrote:

If you only want the name go with the simpler code Tom suggested

s = ActiveSheet.Shapes(Application.Caller).Name
s = Application.Caller

will both return the same

Regards,
Peter T

"DaveJones" wrote in message
...
Thanks Peter
I used sPath = ActiveSheet.Shapes(Application.Caller).Name
This picked up which picture I had clicked on and loaded the relevant
picture from the hard disk. All working fine!
Regards
DaveJones

"Peter T" wrote:

Maybe you could store the fullpath of the bigger version in the
AlternativeText property of the small worksheet picture.

In the macro

sPath = ActiveSheet.Shapes(Application.Caller).Alternative Text

Simplest is if sPath is a public variable to be read during the forms
initialize event, though there are other ways without using a public

var.

Regards,
Peter T



"DaveJones" wrote in message
...
Hello
I have inserted a small version of a picture onto a spreadsheet. I've

then
linked a macro that opens a userform with a frame on it that displays

a
bigger version of the picture when you click on it. This works if I
physically put the path name of the picture in the code. Can I pick up

in
the
code the name of the picture on the spreadsheet as I am going to have
multiple small pictures on the spreadsheet and would like to only

access
one
sub to load it onto the userform.

Regards
DaveJones