In diesem Beispiel wird ein Kombinationsfeld so angepasst, dass es alle Einträge seiner Liste anzeigt. Falls Shapes(2) kein Kombinationsfeld darstellt, schlägt dieses Beispiel fehl.
Set cf = Worksheets(1).Shapes(1).ControlFormat cf.DropDownLines = cf.ListCount