In diesem Beispiel wird das markierte Element eines Listenfeldes entfernt. Falls Shapes(2) kein Listenfeld darstellt, schlägt dieses Beispiel fehl.
Set lbcf = Worksheets(1).Shapes(2).ControlFormat lbcf.RemoveItem lbcf.ListIndex