Compartir a través de

Método Project.SetCustomUI (Project)

  • Artículo

Establece el valor XML interno para una interfaz de usuario de cinta personalizada del proyecto.

Sintaxis

expresión. SetCustomUI( _CustomUIXML_ )

Expresión Expresión que devuelve un objeto Project .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
CustomUIXML Obligatorio String Datos XML válidos para modificar la cinta.

Valor devuelto

Nothing

Comentarios

Porque el proyecto usa un formato de archivo binario, el método SetCustomUI se requiere para la personalización mediante programación de la cinta de opciones.

Nota:

[!NOTA] El método SetCustomUI afecta a todas las personalizaciones en el ámbito del proyecto. Por ejemplo, si hay una personalización existente en el proyecto global de empresa o en el proyecto Global.mpt local, para realizar una personalización adicional, debe incluir la definición XML existente en el argumento CustomUIXML.

El valor CustomUIXML debe ser XML válido para el contenido de la cinta de opciones personalizada de Microsoft Office. El valor XML debe comenzar con el elemento mso:customUI, seguido del elemento Mso: Ribbon. Si el elemento Mso: Ribbon está vacío, SetCustomUI quita las personalizaciones de la cinta de opciones.

Hay varios artículos sobre la personalización de la cinta de opciones para la interfaz de usuario de Fluent en aplicaciones de Microsoft Office. Para obtener más información, vea Información general de la cinta de opciones de Office Fluent.

Ejemplo:

El ejemplo siguiente agrega la Nueva ficha a la izquierda de la ficha Ver, en la cinta de opciones. Nueva ficha contiene un grupo denominado Grupo nuevo. El botón en el grupo se denomina Botón de prueba y utiliza la imagen denominada GetExternalDataFromText en la biblioteca de icono integrada de 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

El ejemplo siguiente quita todas las personalizaciones de la cinta de opciones, ya que el elemento Mso: Ribbon está vacío.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.