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!