Свойство Document.MasterShortcuts (Visio)

Статья
04/07/2023

Возвращает коллекцию MasterShortcuts для набора элементов документа. Только для чтения.

Синтаксис

expression. MasterShortcuts

Выражение Переменная, представляющая объект Document .

Возвращаемое значение

MasterShortcuts

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство MasterShortcuts для получения коллекции основных ярлыков в наборе элементов документа.

Перед выполнением этого примера замените ссылку на StencilWithShortcuts.vss ссылкой на допустимый VSS-файл, содержащий основные ярлыки.

Чтобы создать набор элементов, содержащий основные сочетания клавиш, выполните следующие действия:

Откройте существующий набор элементов. (В окне Фигуры щелкните Другие фигуры, щелкните Открыть набор элементов, а затем дважды щелкните набор элементов.)
Щелкните правой кнопкой мыши главный элемент в наборе элементов и выберите команду Копировать.
Создайте новый набор элементов. (В окне Фигуры щелкните Другие фигуры, а затем — Новый набор элементов (единицы США) или Новый набор элементов (Метрика).)
Щелкните правой кнопкой мыши новый набор элементов и выберите команду Вставить ярлык.
Сохраните новый набор элементов. (Щелкните правой кнопкой мыши строку заголовка и нажмите кнопку Сохранить.)

В следующем коде замените StencilWithShortcuts.vss именем нового набора элементов.

 
Public Sub MasterShortcuts_Example() 
  
    Dim vsoMasterShortcuts As Visio.MasterShortcuts  
    Dim vsoMasterShortcut As Visio.MasterShortcut  
    Dim vsoStencil As Visio.Document  
 
    'Get a stencil that contains some shortcuts.  
    Set vsoStencil = Application.Documents ("StencilWithShortcuts.vss ")  
    Set vsoMasterShortcuts = vsoStencil.MasterShortcuts 
  
    For Each vsoMasterShortcut In vsoMasterShortcuts 
  
        'Print some of the more common properties of a  
        'master shortcut to the Immediate window.  
        With vsoMasterShortcut  
            Debug.Print .AlignName  
            Debug.Print .DropActions  
            Debug.Print .IconSize  
            Debug.Print .ID  
            Debug.Print .Index  
            Debug.Print .Name  
            Debug.Print .NameU  
            Debug.Print .ObjectType  
            Debug.Print .Prompt  
            Debug.Print .ShapeHelp  
            Debug.Print .Stat  
            Debug.Print .TargetDocumentName 
  
            'Original master where shortcut points  
            Debug.Print.TargetMasterName  
 
        End With          
 
    Next  
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через