Question:
In Elipse E3, how can I resize an E3Chart‘s legend in the section report via scripts?
Solution:
To do so, follow the generic script below, which is used for the same event that prints section reports. The legend is resized by the highlighted lines.
Sub CommandButton1_Click()
Set Report = Application.LoadReport("RelatorioSecao1")
Set Chart = Report.Item("E3Chart1")
Set charttela = Application.GetFrame().Screen.Item("E3Chart1")
Chart.CopyConfig(charttela)
Chart.LoadData()
NPens = Chart.Pens.Count
Chart.Legend.Size = NPens*17.5
Report.PrintPreview()
End Sub
This script checks the number of pens in E3Chart. According to the number of pens, the E3Chart legend in the report section is then resized.
