Display text on mouseover

[Dale Fye]

I've seen Sonia's page, and this is what I want to do, but I need to be able
to create the mouseover text via automation.

I am using Access to dynamically build a presentation. On some slides, I
have shapes of various types (textbox, rectangles, ovals, diamonds, etc) that
I want to add these screen tips to, but I want to do it via automation.

Can anyone tell me how to do this?

Thanks in advance.

 

[David M. Marcovitz]

Something like this should work. I'm just not sure what to put in the
..SubAddress. I believe it has to be a real location in your PowerPoint.

With oShp.ActionSettings(ppMouseClick).Hyperlink
.Address = ""
.SubAddress = "????"
.ScreenTip = "foo"
End With

--David

 

[vindys]

This link will be good i guess
http://www.technologytrish.co.uk/ppttipshyperlinknowhere.html

Sub ScreenTip()
Dim sh As Shape
'set sh =
ActivePresentation.Slides(1).Shapes(1).ActionSettings.Item(ppMouseClick).Hyperlink.
For i = 1 To ActivePresentation.Slides.Count
For j = 1 To ActivePresentation.Slides(i).Shapes.Count
With ActivePresentation.Slides(i).Shapes(j)
If .HasTextFrame Then

..TextFrame.TextRange.ActionSettings.Item(ppMouseClick).Hyperlink.SubAddress =
i

..TextFrame.TextRange.ActionSettings.Item(ppMouseClick).Hyperlink.ScreenTip =
"Needed Screen Tip"
Else
.ActionSettings.Item(ppMouseClick).Hyperlink.SubAddress = i
.ActionSettings.Item(ppMouseClick).Hyperlink.ScreenTip =
"Needed Screen Tip"
End If
End With
Next j
Next i

End Sub

 

[John Wilson]

The sub address string for internal links is SlideID,Slide Index,Slide Title.
It seems to be read from the left and the first valid value given priority.
Therefore you can usually use blank values if the ID is correct

eg "256,,"
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

 

[Dale Fye]

Guys,

You were right on the money. This worked great!

Thanks again.

 

[Dennis]

but for now, i need to return the existing tooltip on a shape. im trying:

shp.ActionSettings(1).Hyperlink.ScreenTip, with no luck (powerpoint thinks im trying to set the screentip but i only want to return it.

Any ideas?