Breedte grafiek automatisch aanpassen

Status
Niet open voor verdere reacties.

EJProsman

Gebruiker
Lid geworden
15 mrt 2011
Berichten
43
Beste Helpmij'ers,

Ik ben bezig met een Excelbestand waarin een grafiek opgesteld wordt. De data in de grafiek hangt af van de geselecteerde periode via een formulier. Dit kan dus heel kort zijn maar ook heel lang. De periodes staan op de x-as (horizontaal). Het probleem is dat als de periode lang wordt, er teveel waarden op de x-as staan. Via een berekening heb ik de lengte van de x-as voor de verschillende lengtes uitgerekend. Met een macrorecorder probeerde ik dit via knippen en plakken in de eigenschappen van de grafieken te zetten. Dit werkt wel als je het handmatig doet maar de macrorecorder neemt het niet op. Ik krijg via de recorder de volgende code:

Code:
Sub xas()
'
' xas Macro
'
    Range("J3").Select
    Selection.Copy
    ActiveSheet.ChartObjects("Grafiek 1").Activate
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    Range("S6").Select
End Sub

In J3 staat de berekening waaruit blijkt hoe breed de grafiek moet worden. Alleen hij plakt het nergens in de eigenschappen. Weet iemand wat ik fout doe?

Met vriendelijke groet,
EJProsman
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan