Display text on mouseover

  • Thread starter Thread starter Dale Fye
  • Start date Start date
D

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.
 
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
 
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
 
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?
 
Back
Top