Multiple Graphs - Resize All

[Guest]

Hi my learned friends,

I have 10 small graphs on a worksheet, and they are all of slightly
differing widths and heights. Is there a way whereby I can select them all
and resize them all in one go?

Many thanks.

 

[Dave Peterson]

You can click on the first to select it.
Then ctrl click on the rest of them

When they're all selected, you can resize them the way you want.

 

[Dave Peterson]

And you could use a little macro to make them all the same size.

Option Explicit
Sub testme()

Dim myChartObj As ChartObject
Dim mstrChartObj As ChartObject
Dim wks As Worksheet

Set wks = ActiveSheet

With wks
Set mstrChartObj = .ChartObjects("chart 1")

For Each myChartObj In ActiveSheet.ChartObjects
With myChartObj
.Width = mstrChartObj.Width
.Height = mstrChartObj.Height
End With
Next myChartObj
End With
End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm