Propiedad Width
Devuelve o establece el ancho, en píxeles, de la barra de comandos o del control de la barra de comandos especificados. Integer de Lectura/Escritura.
expresión.Width
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
Este ejemplo agrega un control personalizado a la barra de comandos denominada Custom. El ejemplo establece el alto del control personalizado en el doble del alto de la barra de comandos y establece el ancho en 50 píxeles. Observe cómo la barra de comandos cambia su tamaño de forma automática para adaptarlo al control.
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