[roamer]

Добраться можно так :

Код:

Var
  i : integer;
  cn : string;
  V : variant;

begin
  ListBox1.Items.Clear;
  for i:=1 to Excel.ActiveWorkbook.ActiveSheet.Shapes.Count do
    begin
      V := Excel.ActiveWorkbook.ActiveSheet.Shapes.Item(i);
      cn := V.name;
      ListBox1.Items.Add(cn);
  end;
end;

А вот как использовать их свойства - не знаю (не копался).