Dag Jan,
Dit zegt de Help:
Voorbeeld van de eigenschap Width
In dit voorbeeld wordt een aangepast besturingselement aan de opdrachtbalk 'Custom' toegevoegd. De hoogte van het aangepaste besturingselement wordt op twee maal de hoogte van de opdrachtbalk ingesteld en de breedte wordt op vijftig pixels ingesteld. De opdrachtbalk zal zich aan het besturingselement aanpassen en automatisch hoger worden.
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
Gegroet,
Axel