Descrição:
Como redimensionar a legenda do E3Chart no relatório via scripts?
Solução:
Para isto, siga o exemplo de script abaixo, utilizado no evento OnBeforePrint de um relatório. As linhas em destaque são as responsáveis por redimensionar a legenda e o E3Chart.
Sub OnBeforePrint
Set Chart = Report.Sections("PageHeader").Controls("E3Chart1")
Set charttela = Application.GetFrame().Screen.Item("E3Chart1") Chart.CopyConfig(charttela) Chart.LoadData() NPens = Chart.Pens.Count Chart.Legend.Size = NPens*17 Chart.Height = charttela.Height + NPens*17 End Sub
Nessas linhas, é feita a verificação da quantidade de penas no E3Chart e o redimensionamento da legenda e do E3Chart do relatório de acordo com a quantidade de penas.
