Propriedade CommandBarButton.Height (Office)

Obtém ou define a altura de um controle de barra de comandos. Leitura/gravação.

Observação

[!OBSERVAçãO] O uso de CommandBars em alguns aplicativos do Microsoft Office foi substituído pelo novo componente da faixa de opções da interface de usuário do Microsoft Office Fluent. Para obter mais informações, consulte Visão geral da faixa de opções fluente do Office.

Sintaxe

expressão. Altura

Expressão Uma variável que representa um objeto CommandBarButton .

Valor de retorno

Inteiro

Exemplo

Este exemplo adiciona um controle personalizado à barra de comandos chamada Custom. O exemplo define a altura do controle personalizado como o dobro da altura da barra de comandos e define a largura do controle como 50 pixels. Note como a barra de comandos é automaticamente redimensionada para acomodar o controle.

Set myBar = CommandBars("Custom") 
barHeight = myBar.Height 
Set myControl = myBar.Controls _ 
    .Add(Type:=msoControlButton, _ 
    Id:= CommandBars("Standard").Controls("Save").Id, _ 
     Temporary:=True) 
With myControl 
    .Height = barHeight * 2 
    .Width = 50 
End With 
myBar.Visible = True

Confira também

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.