VBA code in slide show mode

[Tekvideo]

Looking for help with VBA coding..........spent many hours trying to get the
code working without success.

Objective: I have a slide with a floor plan that has several shapes (an
arrow) scattered through out the plan. The idea is that when the user clicks
on the shape it brings up a picture of that area in the centre of the slide
and when they click on the picture it then disappears. If I use the
hyperlinks feature the problem is that the image comes in at full size and
the user has to reduce the zoom effect.
I found some examples of a popup image and shapes alternate text feature
routines at the web site http://www.rdpslides.com that works well.

The probelm is how do I add code so that when the shape is clicked the code
looks at the alternate text property of the shape being clicked (this will
give the link to the picture file) to display the picture.

Any help would save my sanity.

Thanks

Paul

 

[Tekvideo]

Many thanks for the reponse Steve.

I got the msg window to open showing the alternative text and put line line
is the code below. Got myself in a right mess though. Help

Thanks.

Sub PopupNew1(oSh As Shape)

Dim oPopupNew As Shape
Dim oSl As Slide
Dim dOffset As Double
Dim TempImage As String

Set oSl = oSh.Parent

TempImage = oSh.AlternativeText

Set oPopupNew1 = oSl.Shapes.AddPicture(TempImage, msoFalse, msoTrue,
200, 100, 400, 300)

With oPopupNew1

.ActionSettings(ppMouseClick).Run = "Delete"
End With

ActivePresentation.SlideShowWindow.View.GotoSlide (oSl.SlideIndex)

End Sub

 

[Tekvideo]

Many thanks Steve.............it worked.
Boy do I feel stupid though, I've been staring at that mistake for quite a
while now.

Again Thanks