Excel Object-Text lesen

[striderx]

Ich versuche, bei Objekten in einer Excel 2003 Tabelle die Texte auszulesen, und zwar für AutoShapes, Textboxen und Wordart.

Bei den Textboxen klapp das problemlos mit:

Delphi-Quellcode:

AShape.TextFrame.Characters.Text

In den anderen beiden Fällen Fälle bekomme ich die Exception EVariantInvalidOpError.


Hat jemand einen Tipp?

Delphi-Quellcode:

 
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;