Redimensionando a legenda do E3Chart no relatório de seção.

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.
Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 0 / 5. Count: 0

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *