Multiple Graphs - Resize All
 

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.

Multiple Graphs - Resize All
 

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.

James Hamilton wrote:

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

Multiple Graphs - Resize All
 

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

James Hamilton wrote:

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