Exemplo de utilização das propriedades do E3Chart em um Relatório

Os scripts a seguir devem ser criados na Seção PageHeader do Relatório, utilizando o evento OnBeforePrint. Exemplos:

Sub OnBeforePrint
  ' Usando um E3Chart em um Relatório
  Set chart = _
    Report.Sections("PageHeader").Controls("E3Chart1")
  chart.LoadData()
  chart.FitAll
End Sub
 
Sub OnBeforePrint
  ' Este script copia as configurações do objeto
  ' E3Chart chartfrom para o E3Chart chart
  ' que é utilizado no Relatório.
  Set chartfrom = _
    Application.GetFrame().Screen.Item("E3Chart1")
  Set chart = _
    Report.Sections("PageHeader").Controls("E3Chart2")
  chart.CopyConfig(chartfrom)
  chart.LoadData()
  chart.FitAll
End Sub