Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Obtém ou define a altura de um CommandBar. 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 Descrição geral do friso do Office Fluent.
Sintaxe
expressão. Altura
expressão Uma variável que representa um objeto da Barra de Comandos .
Valor de retorno
Número inteiro
Exemplo
Este exemplo adiciona um controlo personalizado à barra de comando com o nome Personalizado. O exemplo define a altura do controle personalizado como duas vezes a 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.