次の方法で共有

Hyperlink.SubAddress プロパティ (Visio)

  • [アーティクル]

図形の Hyperlink オブジェクトのサブアドレスを取得または設定します。 値の取得と設定が可能です。

構文

式。SubAddress

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

戻り値

文字列

注釈

図形の Hyperlink オブジェクトの Address プロパティが空白でない場合、SubAddress プロパティの設定はオプションです。 Address プロパティが空白の場合は、SubAddress を図面ページの名前に設定する必要があります。

ハイパーリンクの SubAddress プロパティの設定は、[ハイパーリンク] ダイアログ ボックスの [サブアドレス] ボックスに情報を入力するのと同じです ([挿入] タブの [ハイパーリンク] をクリックします)。 また、これはシェイプシート ウィンドウ内の図形の [Hyperlink. name] 行の [SubAddress] セルの結果を設定する操作と同じです。

Hyperlink オブジェクトの SubAddress プロパティは、ハイパーリンクのアドレスの二次的な位置を指定します。 Microsoft Visio ファイルの場合は、ページ名などです。 Microsoft Excel の場合、ワークシートまたはワークシート上の範囲を指定できます。 HTML ページの場合は、サブアンカーなどです。

サブアドレスが指定されたハイパーリンク アドレスでは、サブアドレス リンクをサポートしている必要があります。

例

次の例では、 SubAddress プロパティを使用してハイパーリンクのサブアドレスを設定する方法を示します。 このマクロを実行する前に、 drive\ folder\subfolder をコンピューター上の有効なパスに置き換え、 アドレス を有効なインターネットまたはイントラネット アドレスに置き換え、 subaddress をインターネットまたはイントラネット アドレスの有効なサブアドレスに置き換え、 drawing.vsd をコンピューター上の有効なファイルに置き換え、 アンカー をファイル内の有効なページと図形に置き換えます。

 
Sub SubAddress_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoHyperlink As Visio.Hyperlink 
 
 'Draw a rectangle shape on the active page. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 
 'Add a hyperlink to the shape. 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Allow relative hyperlink addresses. 
 ActiveDocument.HyperlinkBase = "drive:\folder\subfolder " 
 
 'Return a relative address. 
 vsoHyperlink.Address = "..\drawing.vsd " 
 
 'Return a relative subaddress. 
 vsoHyperlink.SubAddress = "anchor " 
 
 'Print the resulting URLs to the Debug window 
 'to show how the relative path is derived 
 'from the base path and the difference 
 'between canonical and noncanonical forms. 
 Debug.Print vsoHyperlink.CreateURL(False) 
 Debug.Print vsoHyperlink.CreateURL(True) 
 
 'Return an absolute address. 
 vsoHyperlink.Address = "https://address " 
 
 'Return an absolute subaddress. 
 vsoHyperlink.SubAddress = "../subaddress " 
 
 'Print the resulting URL to the Debug window 
 Debug.Print vsoHyperlink.CreateURL(False) 
 
End Sub

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

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