MSCHART

CASTELO 17/05/2012 10:33:34
#402129

Ola vbmaniacos.

Estou configurando um gerador de gráficos no meu projeto.


Bom, se vocês observarem, nesta tela, o usuário seleciona os parâmetros para a montagem do gráfico. Implementei ali uma combo, uma forma dele aumentar a fonte do textos (label).

Bom, o que aconteceu que garimpei o google atras de resolver a situação que apareceu: O label das Séries e o lado esquerdo tem o tamanho da fonte alterado, porém o lado direito a fonte continua no tamanho original de 10 pontos.

Segue código


Dim currentaxis As MSChart20Lib.Axis
Dim currentlabel As MSChart20Lib.label

Set currentaxis = MSChart1.Plot.Axis(VtChAxisIdX)

For Each currentlabel In currentaxis.Labels
currentlabel.VtFont.Name = [Ô]Verdana[Ô]
currentlabel.VtFont.Size = font_size.Text
Next currentlabel

Set currentaxis = MSChart1.Plot.Axis(VtChAxisIdY)

For Each currentlabel In currentaxis.Labels
currentlabel.VtFont.Name = [Ô]Verdana[Ô]
currentlabel.VtFont.Size = font_size.Text
Next currentlabel

With MSChart1
For i = 1 To .Plot.SeriesCollection.Count
With .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel
.VtFont.Size = font_size.Text
End With
Next i
End With


Se alguém tiver uma idéia... será bem vinda.