Descrição:
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.
