共用方式為

OutlookBarShortcut.SetIcon 方法 (Outlook)

  • 發行項

在捷徑窗格中為指定的捷徑設定圖示。

語法

expression。 SetIcon( _Icon_ )

表達 代表 OutlookBarShortcut 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
Icon 必要 Variant 圖示的路徑。

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例會建立名為 MicrosoftSites 的群組，並在 Microsoft Network 網頁中新增快捷方式。 然後將捷徑的圖示設為使用者電腦上的 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 支援與意見反應。