Beschriftung der Datenpunkte eines Liniendiagramms.
Gibt man sich mit dem Index des Datenpunktes zufrieden, kann man das wie folgt machen.
rem Datenpunkte mit Index beschriften
Dim aPointProp
oDiagram = oChartDoc.getDiagram()
Set oDiagram = oChartDoc.getDiagram
for i = 0 to nDatenpunkt-1
Set aPointProp = oDiagram.getDataPointProperties(i,0)
aPointProp.DataCaption=4 rem 4=Text
aPointProp.CharHeight = Schriftgroesse
aPointProp.CharContoured=True
rem aPointProp.CharEmphasis=11 rem Punkt unter dem Text
aPointProp.CharFontStyleName="Fett"
rem aPointProp.CharOverline=1 rem Überstrich über dem Text
next
mit Dem MRI-Tool findet man so
oMRI.inspect( oDiagram )
weitere Eigenschaften und ggf. auch Möglichkeiten
XY-Diagramm Beschriftung von Datenpunkten
Moderator: Moderatoren