PowerPoint - Selected Action Item

[Bruce Fox]

If I have 'Action Settings' assigned to 3 words in a Power Point Slide,
how can I return the 'selected' (mouse down) word, that is an Action item, within that slide.

ie If the one of the Action items is the word "visual", and I select it with the mouse (it envokes the Action - a Macro), that I can pass the word "visual" to the Macro (Module Sub).

I have tried many methods. It appears 'Hyperlinks' have thier oun collection, but not 'Action Settings'.




Cheers,
Bruce.

[Bruce Fox]

[Bruce Fox]

Ideas

[adocwra]

you could place the hyperlink in a textbox

and you the text box events
Just an idea

[Bruce Fox]

Thanks for the reply adocwra,

Unfortunatly that isn't an option as there are too many slides, and I want to apply this proccess to other peoples .ppts.

I have played around with a few API's to return the text under the mouse,
but it seem to have to be 'selected' text.

In short, I need some way of returning the 'word' (thats been setup as an Action Item) to be returned.


PPT must know what Action Item (word) that was selected, as it can run the Macro or whatever Action has been set - I need to tap into that.
Maybe subclassing, but I think that would be too hazardous as these
PPTs will be given over a LAN.



Bruce.

[adocwra]

i know this code shows all actions as link in a presentation maybe you could play around with this

Dim a As Slide
Set a = ActivePresentation.Slides(1)

For i = 1 To a.Hyperlinks.Count - 1
Debug.Print a.Hyperlinks(i).TextToDisplay
Next

[adocwra]

i know this code shows all actions as link in a presentation maybe you could play around with this

Dim a As Slide
Set a = ActivePresentation.Slides(1)

For i = 1 To a.Hyperlinks.Count - 1
Debug.Print a.Hyperlinks(i).TextToDisplay
Next

and in the object browser you can get all the classes and properties

[adocwra]

i assigned macro1 to the action to run on mouse click
macro1 has

 
a = ActiveWindow.Selection.TextRange  
 Debug.Print a 
'and i think this is what you need

'then i recorded the assigning of the acrion and it gave me this

With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseOver)
        .Run = "Macro1"
        .Action = ppActionRunMacro
        .SoundEffect.Type = ppSoundNone
        .AnimateAction = msoFalse
    End With

i know this is bad programming but i dont know powerpoint as well as i do everythinng else

[Bruce Fox]

Thanks again, I had unsuccessfully tried similar approaches

But, I'm still trying.....

Cheers,
Bruce.

[adocwra]

sub mac
a = ActiveWindow.Selection.TextRange
Debug.Print a
'and i think this is what you need

if a="visual" then dosomethingelse
end sub

would work I think

the example of


With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseOver)
.Run = "Macro1"
.Action = ppActionRunMacro
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With

was to show how to programatically assign the macro to the action

[Bruce Fox]

Originally posted by adocwra
was to show how to programatically assign the macro to the action

Yep, I was aware of that


Unfortunatly, I think .TextRange returns ALL the text (in the shape), not just the Action Item.

It kinda sucks, I didn't think it would be this hard PPT must know what item was selected so it can take action.


Hmmmm.


Bruce.

[Bruce Fox]

Bugger!

I have just been messing with the PPT MS Design Environment, that displays the Script behid the presentation.

Each Action has a unique call to the Macro. In short, I don't think I can do what I wanted... - well see

[adocwra]

I guess I am fasinated with this

you could make a macro for each action

[Matt_T_hat]

I take it you can't assign different actions

thus:

Word1 >> MyFunc(Foo)
Word2 >> MyFunc(Bar)

[Bruce Fox]

adocwra & Matt,

Your right, I could make a Macro for each word.... but that wouldn't work for my situation.


Scenario
What I'm attempting to do is to have a global Glossary of Terms (GoT), that exist for use by many Instructors. So, during a PPT pressentation,
a instructor could click (on a pre determind word) and they would be pressented
with a MsgBox containing the 'words' definition.

The reaon for this approach, is that I can get each instructor (10+) to simply set 'thier' word to an Action Setting, for the GoT Macro, and vola! Each ingividual needs no programming skills to do this. I will code up the Maco (Module) and apply it thru our 'Template' (of course I will add the 'word' definitions as required).

Plan
I have the GoT (list) saved as an .ini file, and I'm using the Ini API to return the relavent definition.

Problem
To make this work, I need to be able to pass the selected (Action Set) 'word' to the API to return the appropriate definition.

(I don't want to use the 'Screen Tip' as an alternate)


Hope that makes sense.


Thanks again for your input



Bruce.

[Bruce Fox]

* See above post *

[adocwra]

sounds like assigning a macro to each link would be nearly impossible

good luck fiding the solution I'm out of ideas but will keep thinking about it

[Bruce Fox]

Cheers - Watch this space.....




Bruce.

[adocwra]

cant wait to see you figure it out


you can figure out what rectangle you are in but because you cant select an action you never have selected text
Bummer

Anna