Compartilhar via

Project.SetCustomUI method (Project) (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 devolve 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 existir uma personalização no projeto global de empresa ou no projeto global.mpt local, para efetuar uma personalização adicional, tem de incluir a definição XML existente no argumento CustomUIXML.

O valor CustomUIXML tem de ser um XML válido para o conteúdo do friso personalizado 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.

Existem vários artigos sobre como personalizar o friso para a interface de utilizador Fluent nas aplicações do Microsoft Office. Para obter mais informações, consulte Descrição geral do friso do Office Fluent.

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.

  • Last updated on