afmetingen grafiek en legenda via vba vastzetten

Status
Niet open voor verdere reacties.
A

arjoderoon

Gebruiker
Lid geworden
2 mei 2007
Berichten
474
ik heb een grafiek de vaak wijzigt op basis van selecties (draaitabel grafiek).
Iedere keer dat er iets wijzigd, overlapt de legenda de grafiek. Ik wil dit vast gezet hebben, maar ik krijg het niet voor elkaar.
Ik heb een aantal dingen hard ingevuld via vba, maar dat maakt geen verschil.
Ik snap maar niet waarom dit niet lukt, maar misschien weet hier iemand een oplossing hiervoor?

ik heb nu deze code, die dit moet regelen:
Code: 
Option Explicit
Private Sub Chart_Calculate()

ChartObjects("grafiek 4").Activate
ActiveChart.PlotArea.Top = 33.102
ActiveChart.PlotArea.Left = 67.1
ActiveChart.PlotArea.Width = 637.783
ActiveChart.Legend.IncludeInLayout = True
ActiveChart.Legend.Position = xlLegendPositionRight
ActiveChart.Legend.AutoScaleFont = True
ActiveChart.Legend.Top = 7
ActiveChart.Legend.Left = 716.514
ActiveChart.Legend.Width = 176.735
ActiveChart.Legend.Height = 329.667

End Sub

Maar nog steeds schuift de legenda over de grafiek heen.
 
Ik zou in ieder geval de Autoscale uitzetten, want die dondert de hele opmaak van je labels (ook je legenda dus) overhoop.
Code: 
With ActiveChart
    With .PlotArea
        .Top = 33.102
        .Left = 67.1
        .Width = 637.783
    End With
    With .Legend
        .IncludeInLayout = True
        .Position = xlLegendPositionRight
        .AutoScaleFont = False
        .Top = 7
        .Left = 716.514
        .Width = 176.735
        .Height = 329.667
    End With
End With
 
thanks. kan het zijn dat het resizen soms gebeurt omdat er teveel legenda items zijn voor de beschikbare ruimte?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan