Display text on mouseover

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.
--
Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.

vindys
Fri Mar 14 13:09:01 CDT 2008

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


"Dale Fye" wrote:

> 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.
> --
> Don''t forget to rate the post if it was helpful!
>
> email address is invalid
> Please reply to newsgroup only.
>

David
Fri Mar 14 13:08:51 CDT 2008

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
--
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.
>
> 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.

john
Fri Mar 14 13:24:00 CDT 2008

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


"David M. Marcovitz" wrote:

> 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
> --
> 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.
> >
> > 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.
>
>

Dale
Fri Mar 14 18:45:50 CDT 2008

Guys,

You were right on the money. This worked great!

Thanks again.
"John Wilson" <john AT technologytrish.co DOT uk> wrote in message
news:D92B91B0-F910-4E65-81EF-E0413B6506A3@microsoft.com...
> 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
>
>
> "David M. Marcovitz" wrote:
>
>> 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
>> --
>> 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.
>> >
>> > 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.
>>
>>