Controlling Report Legend with Script

[TamerZero]

I've using the curve related text option of the Legend in my report. Is there a way to modify this with a script?

[Walter_Rick · Accepted solution]

Hi TammerDTS,

These properties are part of the curve settings:

dim oCurves
set oCurves = Report.Sheets(1).Objects("2D-Axis1").Curves2D
oCurves(1).RelatedLegendText(1)  = "atest"
oCurves(2).RelatedLegendText(1)  = "btest"

Greetings

Walter

[TamerZero]

Thanks again Walter, works great. I had a little trouble trying to figure out what the 2D axis system was named, but I figured it out by deleting it, then the confirmation message told me the name.

[TamerZero]

In case it helps anyone, I created a loop to modify multiple channels on all my sheets.

Option Explicit
Dim oCurves, iLoop

For iLoop = 2 to 27
	Set oCurves = Report.Sheets(iLoop).Objects(1).Curves2D
	oCurves(1).RelatedLegendText(1)  = "Channel 1"
	oCurves(4).RelatedLegendText(1)  = "Channel 4"
	oCurves(7).RelatedLegendText(1)  = "Channel 7"
	oCurves(10).RelatedLegendText(1)  = "Channel 10"
Next