Problem mit (VB-) Diagrammen und Textfeldern
12.12.2005 17:16:29
Markus
bei mir stellt sich folgendes Problem:
ich habe in einem Arbeitsblatt u.a. mehrere Diagramme, jedes Diagramm hat ein zusätzliches Textfeld.
Die Textfelder möchte ich nun alle mit (demselben) Inhalt füllen, leider gelingt mir das bisher nicht.
For Each diag In ActiveSheet.Shapes
If Left(diag.Name, 5) = "Chart" Then
diag.Select
For Each shp In ActiveChart.Shapes
If Left(shp.Name, 8) = "Text Box" Then
ActiveChart.shp.Select
Selection.Characters.Text = zf1
End If
Next shp
End If
Next diag
Der obige Code erzeugt einen Fehler bei "Selection.Characters.Text = zf1" (zf1 ist eine Variable, die Text enthält).
Wer kann mir helfen?
Danke und Gruß,
Markus