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.
