Método Project.SetCustomUI (Project)

Define o valor XML interno para a interface do usuário da faixa de opções personalizada do projeto.

Sintaxe

expression. SetCustomUI( _CustomUIXML_ )

Expressão Uma expressão que retorna um objeto Project .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
CustomUIXML	Obrigatório	String	Dados XML válidos para modificar a faixa de opções.

Valor de retorno

Nothing

Comentários

Como o projeto usa um formato de arquivo binário, o método SetCustomUI é necessário para personalizar programaticamente a faixa de opções.

Observação

O método SetCustomUI afeta todas as personalizações dentro do escopo do projeto. Por exemplo, se houver uma personalização existente no projeto global empresarial ou no projeto global.mpt local, para fazer uma personalização adicional, você deverá incluir a definição XML existente no argumento CustomUIXML.

O valor CustomUIXML deve ser XML válido para o conteúdo da faixa de opções personalizada do Microsoft Office. O valor XML deve começar com o elemento mso:customUI, seguido do elemento Mso: Ribbon. Se o elemento Mso: Ribbon está vazio, SetCustomUI remove personalizações de faixa de opções.

Há vários artigos sobre como personalizar a faixa de opções para a interface do usuário fluente em aplicativos do Microsoft Office. Para obter mais informações, consulte Visão geral da faixa de opções fluente do Office.

Exemplo

O exemplo a seguir adiciona a Nova guia à esquerda da guia Exibir, na faixa de opções. Nova guia contém um grupo chamado Novo grupo. O botão no grupo é denominado Botão Testar e usa a imagem denominada GetExternalDataFromText na biblioteca do ícone interna do 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

O exemplo a seguir remove todas as personalizações de faixa de opções, porque o elemento Mso: Ribbon está vazio.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.