Свойство OutlookBarGroup.Shortcuts (Outlook)
Возвращает коллекцию сочетаний клавиш OutlookBarShortcuts , содержащуюся в области Ярлыки . Только для чтения.
Синтаксис
выражение. Shortcuts
Выражение Переменная, представляющая объект OutlookBarGroup .
Пример
В этом примере Microsoft Visual Basic для приложений (VBA) удаляются все пустые группы в области Ярлыки.
Sub DeleteEmptyGroups()
Dim myOlBar As Outlook.OutlookBarPane
Dim myOlGroup As Outlook.OutlookBarGroup
Dim x As Integer
Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
For x = myOlBar.Contents.Groups.Count To 1 Step -1
Set myOlGroup = myOlBar.Contents.Groups.Item(x)
If myOlGroup.Shortcuts.Count = 0 Then
myOlBar.Contents.Groups.Remove x
End If
Next x
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.