Project.SetCustomUI 方法 (Project)

设置项目的自定义功能区用户界面的内部 XML 值。

语法

expressionSetCustomUI( _CustomUIXML_ )

表达 返回 Project 对象的表达式。

参数

名称 必需/可选 数据类型 说明
CustomUIXML 必需 String 用于修改功能区的有效 XML 数据。

返回值

Nothing

备注

由于项目使用二进制文件格式,因此 SetCustomUI 方法都需要以编程方式自定义功能区。

注意

[!注释] SetCustomUI 方法将影响项目的范围内的所有自定义。 例如,如果企业全局项目或本地 Global.mpt 项目中存在现有自定义项,则若要进行其他自定义,则必须在 CustomUIXML 参数中包含现有 XML 定义。

CustomUIXML 值必须是 Microsoft Office 自定义功能区内容的有效 XML。 XML 值必须与 mso:customUI 元素,跟 mso:ribbon 元素开始。 Mso:ribbon 元素是否为空,则 SetCustomUI 中删除功能区自定义项。

有几篇有关在 Microsoft Office 应用程序中自定义 Fluent 用户界面功能区的文章。 有关详细信息,请参阅 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。