次の方法で共有

Hyperlink.Address プロパティ (Visio)

  • [アーティクル]

図形の Hyperlink オブジェクトのアドレス ( ハイパーリンク が移動するアドレス) を取得または設定します。 値の取得と設定が可能です。

構文

式。アドレス

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

戻り値

文字列

注釈

Hyperlink オブジェクトの Address プロパティの設定は、[ハイパーリンク] ダイアログ ボックス ([挿入] メニュー) の [アドレス] ボックスに情報を入力したり、図形の [ハイパーリンク] の [アドレス] セルの結果を設定したりするのと同じです。[シェイプシート] ウィンドウの [名前] 行。

Address プロパティの値には、DOS、UNC、または URL パスを指定できます (例: "driveletter":\"foldername" \ "drawingname"、\ "servername"\ "foldername""\ drawingname"、または https:// address それぞれ。

Address プロパティが相対的な場合は (例: ".)。\ "drawingname" は、指定されている場合は HyperlinkBase プロパティ、またはハイパーリンクのドキュメント パスに対して構成されます。 図面を保存しないと、ハイパーリンクは未定義になります。

Address プロパティが空の場合は、アドレスがページを含むドキュメント内のページを指していると仮定できます。 この場合は、SubAddress プロパティに、ハイパーリンクの移動先となる図面ページの名前が格納されています。

例

この Microsoft Visual Basic for Applications (VBA) マクロは、Hyperlink オブジェクトの Address プロパティを設定しています。 この例を実行する前に、 を有効なインターネットまたはイントラネット アドレスに置き換えます address 。

 
Public Sub Address_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoHyperlink As Visio.Hyperlink 
 
 'Create a new shape to receive the hyperlink 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 vsoHyperlink.Description = "Web site" 
 vsoHyperlink.Address = "https://address /" 
 
End Sub

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

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