Change Chart Height

**scorpio0077** · 07-18-2009, 02:45 PM

How do I write a short piece of code that defines the specific height that I want to assign to a chart in Excel 2007?

I have multiple charts on a sheet and I want to update the vertical heights of the charts depending on the value inputted to a cell in the sheet.

Thanks

**romperstomper** · 07-18-2009, 06:57 PM

Do you mean the height of the chart area or of the chartobject? If it's the latter, then a loop like:

Code:

Dim objChtObj as ChartObject
For each objChtObj in Activesheet.chartobjects
   objChtObj.Height = Range("A1").Value
Next objChtObj

for example. Of course, you might want to move them too...

**scorpio0077** · 07-18-2009, 07:25 PM

Hey romperstomper, Thanks for the reply. I did mean the Chart area and not the object.

**scorpio0077** · 07-19-2009, 12:56 AM

What I am looking for is a way to change the Axis Option > Maximum Height across multiple charts, namely

Chart Tools > Format > Under Current Selection, choose Vertical (value) axis > Format Selection > Axis Option > Maximum Height.

I would like to enter the Maximum Height in a cell and the Maximum Value has to change accordingly.

Thanks!!