Hyperlink.AddToFavorites メソッド (Visio)
現在登録されている [お気に入り] フォルダーに、ハイパーリンク アドレスのショートカットを追加します。
構文
式。AddToFavorites( _FavoritesTitle_ )
式Hyperlink オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| FavoritesTitle | オプション | バリアント型 | 新しいショートカットに割り当てるタイトルです。 |
戻り値
なし
解説
文字列を指定しない場合、AddToFavorites メソッドではハイパーリンクの Description プロパティが新しいお気に入りのタイトルとして使用されます。 Description プロパティが空の場合は、標準のタイトル ("お気に入り 1" など) がショートカットに割り当てられます。
省略可能 な favoritesTitle 引数は、お気に入りファイルの完全なパス ("C:\Users\ username \Favorites\My Favorite.URL"、Favorites フォルダーを基準とするパスなど) を指定できます。
Microsoft Visual Basic または Microsoft Visual Basic for Applications (VBA) の場合、次のいずれかの形式で AddToFavorites メソッドを呼び出します。
object.AddToFavorites "SomeString "
object.AddToFavorites
C/C++ の場合、タイトルを表す文字列を指定するときは、Variant 型の VT_BSTR を渡します。 アプリケーションはショートカットのタイトルとして文字列を割り当てます。 文字列を指定しない場合は、Variant 型の VT_EMPTY または VT_ERROR、および HRESULT DISP_E_PARAMNOTFOUND を渡します。
例
次のマクロは、図形にハイパーリンクを追加して、説明とそのハイパーリンクのアドレスを割り当てる方法を示します。 次に、AddToFavorites メソッドを使用して、ハイパーリンクを [お気に入り] フォルダーに追加する 4 つの方法を示します。
このマクロを実行する前に、address をインターネットまたはイントラネットの有効なアドレスに置き換え、path を有効なパスとフォルダー名 (ドライブ文字を含めて) に変更します。必要な場合は、コンピューター上のドライブ名をパスに含めてください。
Sub AddToFavorites_Example()
Dim vsoShape As Visio.Shape
Dim vsoHyperlink As Visio.Hyperlink
'Create a new shape to add the hyperlink to.
Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)
Set vsoHyperlink = vsoShape.AddHyperlink
'Assign a description and an address to the hyperlink.
vsoHyperlink.Description = "Web site"
vsoHyperlink.Address = "https://address "
'Use the default name for the new favorite link.
vsoHyperlink.AddToFavorites
'Specify a different name for the new favorite link.
'You don't need to specify the URL extension.
vsoHyperlink.AddToFavorites "New Favorite Name"
'Specify a different path to the favorite.
vsoHyperlink.AddToFavorites "path\favoriteName "
'Set a hyperlink base to allow relative hyperlinks.
ThisDocument.HyperlinkBase = "path "
'Specify a relative path to the Favorites folder.
'The URL extension is added automatically.
vsoHyperlink.AddToFavorites ".\favoriteName "
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。