TextRange.Hyperlinks プロパティ (Publisher)

  • [アーティクル]

指定したテキスト範囲のすべてのハイパーリンクを表す Hyperlinks コレクションを取得します。

構文

式。ハイパーリンク

式TextRange オブジェクトを表す変数。

戻り値

Hyperlinks

例

次の使用例は、作業中の文書の 1 番目のページで、テキスト ボックスを持つ図形をすべて検索し、各図形のハイパーリンク数を報告します。

Dim hypAll As Hyperlinks 
Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.HasTextFrame = msoTrue Then 
 Set hypAll = shpLoop.TextFrame.TextRange.Hyperlinks 
 Debug.Print "Shape " & shpLoop.Name _ 
 & " has " & hypAll.Count & " hyperlinks." 
 End If 
Next shpLoop

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。