Descrição:
No Elipse E3, como redimensionar a legenda do E3Chart no relatório de seção via scripts?
Solução:
Para isto, siga o exemplo de script abaixo, utilizado no mesmo evento que imprime um relatório de seção. As linhas em destaque são as responsáveis por redimensionar a legenda.
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
Nessas linhas, é feita a verificação da quantidade de penas no E3Chart e o redimensionamento da legenda do E3Chart do relatório de seção de acordo com a quantidade de penas.
