次の方法で共有

OutlookBarShortcut.SetIcon メソッド (Outlook)

  • [アーティクル]

[ショートカット] ウィンドウで指定されたショートカットのアイコンを設定します。

構文

式。 SetIcon( _Icon_ )

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

パラメーター

名前 必須 / オプション データ型 説明
Icon 必須 バリアント型 (Variant) アイコンのパスを指定します。

例

次の Microsoft Visual Basic for Applications (VBA) の例では、MicrosoftSites という名前のグループを作成し、Microsoft Network Web ページにショートカットを追加します。 このショートカットのアイコンとして、ユーザーのコンピューターにあるアイコン イメージ MSN.ico を使用します。 このコードでは、アイコン イメージが該当する場所に存在することを前提としています。

 Sub CreateMSNShortcutWithIcon() 
 
 Dim exp As Outlook.Explorer 
 
 Dim pans As Outlook.Panes 
 
 Dim bpan As Outlook.OutlookBarPane 
 
 Dim bgrps As Outlook.OutlookBarGroups 
 
 Dim bgrp As Outlook.OutlookBarGroup 
 
 Dim bscs As Outlook.OutlookBarShortcuts 
 
 Dim bsc As Outlook.OutlookBarShortcut 
 
 Dim bsc2 As Outlook.OutlookBarShortcut 
 
 
 
 Set exp = Application.ActiveExplorer 
 
 Set pans = exp.Panes 
 
 Set bpan = pans.Item("OutlookBar") 
 
 Set bgrps = bpan.Contents.Groups 
 
 Set bgrp = bgrps.Add("MicrosoftSites") 
 
 Set bscs = bgrp.Shortcuts 
 
 Set bsc = bscs.Add("https://www.msn.com", "MSN Home Page") 
 
 bsc.SetIcon "C:\MSN.ico" 
 
End Sub

関連項目

OutlookBarShortcut オブジェクト

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

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