var
  AShape: Variant;
  AType: Integer;

 
for I := 1 to Excel.ActiveSheet.Shapes.Count do begin
    AShape := Excel.ActiveSheet.Shapes[I];
    AType := AShape.Type;
    case AType of
       1: if AShape.TextFrame.Characters.Text <> '' then begin // msoAutoShape
              Inc(NumShapes);
              Inc(NumAutoShapes);
           end;
      15: if AShape.TextFrame.Characters.Text <> '' then begin // msoTextEffect
              Inc(NumShapes);
              Inc(NumTextEffects);
           end;
      17: if AShape.TextFrame.Characters.Text <> '' then begin // msoTextBox
              Inc(NumShapes);
              Inc(NumTextBoxes);
           end;
      end;
  end;