Método OutlookBarShortcut.SetIcon (Outlook)
Establece el icono para el acceso directo especificado en el panel de accesos directos.
Sintaxis
expresión. SetIcon( _Icon_ )
Expresión Variable que representa un objeto OutlookBarShortcut .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Icon | Obligatorio | Variant | Ruta de acceso del icono. |
Ejemplo:
En el siguiente ejemplo de Microsoft Visual Basic para Aplicaciones (VBA) se crea un grupo denominado MicrosoftSites y se agrega un acceso directo a la página web de Microsoft Network. A continuación, se establece el icono del acceso directo a la imagen del icono MSN.ico ubicada en el equipo del usuario. En el ejemplo se supone que este icono existe en la ubicación especificada.
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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.