OutlookBarShortcut.SetIcon 方法 (Outlook)

为“快捷方式”窗格上的指定快捷方式设置图标。

语法

expression。 SetIcon( _Icon_ )

表达 一个代表 OutlookBarShortcut 对象的变量。

参数

示例

以下Microsoft Visual Basic for Applications (VBA) 示例创建一个名为 MicrosoftSites 的组，并将快捷方式添加到 Microsoft 网络网页。 然后将快捷方式的图标设置为位于用户计算机上的图标图像 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

另请参阅

快捷的对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。