在PowerPoint演示文稿中找到文本链接的位置

Question

我想知道是否有办法获取设置超链接的位置。在形状的情况下，他们有顶值和左值，我可以选择超链接与幻灯片（i）.Hyperlinks，但我找不到方法来找到我在演示中找到的超链接的位置，因为我可以用形状。有没有办法做到这一点？

Answer 1

您需要查看每个超链接的类型以确定它是超链接形式还是应用于文本的超链接。您已经知道如何处理这些形状，但是如果是文本，则必须沿着父链走向超链接才能找到该textrange。 textrange的BoundLeft，BoundTop，BoundWidth和BoundHeight属性会告诉你文本在哪里。

注意：如果您在没有服务包的PPT 2007中执行此操作，PPT将消失。噗。不见了。

Dim oHl As Hyperlink 
Dim oSl As Slide 
Dim oRng As TextRange 
Set oSl = ActivePresentation.Slides(1) 

For Each oHl In oSl.Hyperlinks 
    With oHl 
     If .Type = msoHyperlinkRange Then 
      Debug.Print TypeName(.Parent) 
      Debug.Print TypeName(.Parent.Parent) 
      Debug.Print TypeName(.Parent.Parent.Parent) 
      Debug.Print TypeName(.Parent.Parent.Parent.Parent) 
      Set oRng = .Parent.Parent 
      Debug.Print oRng.Text 
      Debug.Print oRng.BoundLeft 
      Debug.Print oRng.BoundTop 
     Else 
      ' it's a hyperlinked shape 

     End If 
    End With 
Next