Thank You both, John and Tom
Tom for your quick and easy way ( copied and pasted sub)
and John for explaining it in more detail. Which I copied and saved to to my
personal help files.
This will revolutionize my heavily macro-laden spreadsheets.

"Tom Ogilvy" wrote:

Sub Picture_Click()
set shp = Activesheet.Shapes(application.Caller)
shp.Select
ActiveWindow.Zoom = 75
End Sub

You can assign this one macro to all your pictures

--
Regards,
Tom Ogilvy





"ufo_pilot" wrote in message
...
Hi all,
I am once again coming to the point where I've tried, and searched the
forum
for what I think I need, but with no success....
I need a code ( as below, with a difference), that will zoom to 75% when a
(any) picturelink is selected(clicked on).
The code below works, but I have a "roadmap" of a vehicle, with
leader-lines
that have a pictureLink at the end of each (50 in all) that capture data
from
a hidden sheet.
At this moment I have a code for each picture.
Can the code be written so that I have one, that will zoom in on any
pictureLink selected, instead of naming a specific picture?
Instead of ("Picture 9").Select
("Selected.Shapes") or something.....


Sub SC0x09()
ActiveSheet.Shapes("Picture 9").Select
ActiveWindow.Zoom = 75
End Sub

I have 50 of these working codes right now, but would like to keep the
amount of macros down, since I have 3 more of these spreadsheets to do for
the same vehicle.
Any help is greatly appreciated
I must say, working with excel for 10 years, without knowing anything
about
macros (did not even know what one was), I've improved my overall skills
since I found this site last summer. This made my spreadsheets easier to
use
for the end user thanks to the great people and information on this site!