Метод Project.SetCustomUI (Project)

Задает внутреннее ЗНАЧЕНИЕ XML для пользовательского интерфейса ленты проекта.

Синтаксис

выражение. SetCustomUI( _CustomUIXML_ )

выражение Выражение, возвращающее объект Project .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
CustomUIXML	Обязательный	String	Допустимые XML-данные для изменения ленты.

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

Nothing

Замечания

Так как Project использует двоичный формат файла, для программной настройки ленты требуется метод SetCustomUI .

Примечание.

Метод SetCustomUI влияет на все настройки в область проекта. Например, если в глобальном проекте предприятия или локальном проекте Global.mpt имеется настройка, чтобы выполнить дополнительную настройку, необходимо включить существующее определение XML в аргумент CustomUIXML.

Значение CustomUIXML должно быть допустимым XML для пользовательского содержимого ленты Microsoft Office. Значение XML должно начинаться с элемента mso:customUI , за которым следует элемент mso:ribbon . Если элемент mso:ribbon пуст, SetCustomUI удаляет настройки ленты.

Существует несколько статей о настройке ленты для пользовательского интерфейса Fluent в приложениях Microsoft Office. Дополнительные сведения см. в статье Обзор ленты Office Fluent.

Пример

В следующем примере новая вкладка добавляется слева от вкладки ВИД на ленте. Новая вкладка содержит группу с именем Создать группу. Кнопка в группе называется Test Button и использует образ GetExternalDataFromText во встроенной библиотеке значков Microsoft Office.

Sub AddCustomUI() 
    Dim customUiXml As String 
 
    customUiXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" _
        & "<mso:ribbon><mso:tabs><mso:tab id=""myTab"" label=""New Tab"" " _
        & "insertBeforeQ=""mso:TabView"">" _ 
        & "<mso:group id=""group1"" label=""New Group"">" _ 
        & "<mso:button id=""button1"" label=""Test Button"" size=""large"" " _
        & "imageMso=""GetExternalDataFromText"" />" _ 
        & "</mso:group></mso:tab></mso:tabs></mso:ribbon></mso:customUI>" 
 
    ActiveProject.SetCustomUI (customUiXml) 
End Sub

В следующем примере удаляются все настройки ленты, так как элемент mso:ribbon пуст.

Sub RemoveCustomUI() 
    Dim customUiXml As String 
 
    customUiXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" _
        & "<mso:ribbon></mso:ribbon></mso:customUI>" 
 
    ActiveProject.SetCustomUI (customUiXml) 
End Sub

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

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