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.

Пример

В следующем примере вкладка "Создать" добавляется слева от вкладки "ВИД" на ленте. Вкладка "Создать" содержит группу " Создать группу". Кнопка в группе называется "Тестовая кнопка ". Она использует изображение 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 и обратная связь.