Display text on mouseover

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dale Fye - 14 Mar 2008 18:27 GMT

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.

Signature

Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.

Reply to this Message

David M. Marcovitz - 14 Mar 2008 19:08 GMT

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

Signature

David M. Marcovitz
Microsoft PowerPoint MVP
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

=?Utf-8?B?RGFsZSBGeWU=?= <dale.fye@nospam.com> wrote in
news:28DE1E24-8C0A-4C29-9DA5-F712786E9BF4@microsoft.com:

> 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.
[quoted text clipped - 7 lines]
>
> Thanks in advance.

Reply to this Message

John Wilson - 14 Mar 2008 19:24 GMT

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,,"

Signature

Amazing PPT Hints, Tips and Tutorials

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

> 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.
[quoted text clipped - 17 lines]
> >
> > Thanks in advance.

Reply to this Message

Dale Fye - 15 Mar 2008 00:45 GMT

Guys,

You were right on the money. This worked great!

Thanks again.

> The sub address string for internal links is SlideID,Slide Index,Slide
> Title.
[quoted text clipped - 25 lines]
>> >
>> > Thanks in advance.

Reply to this Message

vindys - 14 Mar 2008 19:09 GMT

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

> 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.
[quoted text clipped - 6 lines]
>
> Thanks in advance.

Reply to this Message

Rate this thread: