Meerdere grafieken in een werkblad tegenlijkertijd vergroten/opmaken

[krabat]

Goededag!

Ik heb een bestand in Excel 2010 met daarin een grote hoeveelheid grafieken. Nu zijn deze grafieken qua grootte allemaal versprongen.

De grootte van de rand is gelijk gebleven, maar de grafiek (het grijze staafgrafiek-gedeelte) daarbinnen is verkleind. Ook is de legenda verplaatst.

Is er een manier om al deze grafieken in één keer (of ja, een paar handelingen misschien) op te maken? Nu ben ik grafiek voor grafiek aan 't bewerken.

Ik hoop dat iemand een foefje weet!

Groet, Krabat :thumb:

 

[Niels28]

Voeg een module toe en kopieer deze macro daarin.
Positie en afmeting zelf aanpassen

Sub Grafieken()
For Each chrt In ActiveSheet.ChartObjects
With ActiveSheet.ChartObjects(chrt.Name).Activate
With ActiveChart.PlotArea
.Left = 30
.Top = 180
.Width = 250
.Height = 150
End With
ActiveChart.Legend.Left = 300
ActiveChart.Legend.Top = 150
End With
Next
End Sub

Niels

 

[krabat]

Dank je Niels!! Ik ga aan de slag.

Groeten Krabat