|
Dann baut man sich eben eine Hilfsfunktion, welche überprüft ob die Form einen Textbereich hat oder nicht...
Public Function HasTextFrameText(Shape As Excel.Shape) As Boolean
On Error Resume Next
HasTextFrameText = Not (Shape.TextFrame2.TextRange Is Nothing)
End Function
...oder man entscheidet das anhand von selbst zugelassen bzw. nicht zugelassenen Shapetypen.
Corina,
dir wurde in diesem Forum bereits erklärt wie man sich so etwas selber erarbeiten kann (Objektkatalog, Haltepunkt, Ausgabe/Abfrage von z.B. Eigenschaften im Direktbereich, usw.) - mittlerweile müsste man erwarten können, dass du kreativ wirst, dir selbst helfen kannst - nicht bös' gemeint.
Dir positiv anzurechnen ist jedoch, dass du das mögliche Problem einkreisen konntest.
Gruß
|