Свойство Application.CustomMenusFile (Visio)

Возвращает или задает имя файла, определяющего настраиваемые меню и ускорители для объекта Application . Для чтения и записи.

Примечание.

Начиная с Visio 2010 пользовательский интерфейс Microsoft Office Fluent заменил предыдущую систему многоуровневых меню, панелей инструментов и областей задач. Объекты И члены VBA, которые использовались для настройки пользовательского интерфейса в предыдущих версиях Visio, по-прежнему доступны в Visio, но работают по-разному.

Синтаксис

expression. CustomMenusFile

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

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

Строка

Замечания

Если объект не использует пользовательские меню, свойство CustomMenusFile возвращает Nothing.

Пример

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

Предостережение

Этот макрос использует ключевое слово VBA Kill для удаления файла на диске. Используйте это ключевое слово осторожно, так как после ее выполнения нельзя отменить команду Kill и вы не получите предварительное предупреждающее сообщение.

 
Sub CustomMenusFile_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim strPath As String 
 
 'Check whether there are custom menus bound to the document. 
 If ThisDocument.CustomMenus Is Nothing Then 
 
 'If not, check whether there are custom menus bound to the application. 
 If Visio.Application.CustomMenus Is Nothing Then 
 
 'If not, use the Visio built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 MsgBox "Using Built-In Menus", 0 
 
 Else 
 
 'If there are existing Visio custom menus, use them. 
 Set vsoUIObject = Visio.Application.CustomMenus 
 
 'Save these custom menus to a file. 
 strPath = Visio.Application.Path & "\CustomUI.vsu" 
 vsoUIObject.SaveToFile (strPath) 
 
 'Set the document to use the existing custom UI. 
 ThisDocument.CustomMenusFile = strPath 
 
 'Get this document's UIObject object. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 
 'Delete the newly created temp file. 
 Kill Visio.Application.Path & "\CustomUI.vsu" 
 ThisDocument.ClearCustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom menus. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 
 End If 
 
End Sub

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

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