J
John
Hi !
I am faced with a problem.
I need to know all the hyperlinks in a PPT .
I am using the following two ways to extract them, but neither is satisfying
my requirement.
1)
For Each hl In ActivePresentation.Slides(1).Hyperlinks
With hl
MsgBox .Address
MsgBox .SubAddress
MsgBox .ScreenTip
MsgBox .TextToDisplay
MsgBox .Type
End With
This gives me all the hyperlinks but it does not give me on which object
they are applied.
Can I get them?
If yes can I get them for a particular portion of text in a textbox. with
the below method I can get the hyperlink if it is applied on the shape.
2) Set myShape = ActivePresentation.Slides(1).Shapes(1)
With myShape.ActionSettings(ppMouseClick).Hyperlink
MsgBox .Address
MsgBox .SubAddress
MsgBox .ScreenTip
MsgBox .TextToDisplay
End With
I am faced with a problem.
I need to know all the hyperlinks in a PPT .
I am using the following two ways to extract them, but neither is satisfying
my requirement.
1)
For Each hl In ActivePresentation.Slides(1).Hyperlinks
With hl
MsgBox .Address
MsgBox .SubAddress
MsgBox .ScreenTip
MsgBox .TextToDisplay
MsgBox .Type
End With
This gives me all the hyperlinks but it does not give me on which object
they are applied.
Can I get them?
If yes can I get them for a particular portion of text in a textbox. with
the below method I can get the hyperlink if it is applied on the shape.
2) Set myShape = ActivePresentation.Slides(1).Shapes(1)
With myShape.ActionSettings(ppMouseClick).Hyperlink
MsgBox .Address
MsgBox .SubAddress
MsgBox .ScreenTip
MsgBox .TextToDisplay
End With