Sizing individual charts with a macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ellinoz - 13 Oct 2006 12:00 GMT

Hi,

I'm kind of flying along through VB on a wing and a prayer, so would really
appreciate some help with sizing individual charts in Excel. I have found
some coding for resizing all the charts on a sheet, but really need to be
able to click on a chart and resize them individually.

I can manage it as long as I have selected the chart with the Select cursor
(from the Drawing menu) and it is seen as a shape, but if I am in the chart
in editing mode, I get a run-time error 438, and the message 'Object doesn't
support this property or method'.

I'm in Excel 2003.

Many thanks,
Eleanor

Reply to this Message

Andy Pope - 13 Oct 2006 12:09 GMT

Hi,

If the chart is active then use the Parent reference to apply sizes

This will make the chart 10% wider.

ActiveChart.Parent.Width = ActiveChart.Parent.Width * 1.1

Cheers
Andy

> Hi,
>
[quoted text clipped - 12 lines]
> Many thanks,
> Eleanor

Signature

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Reply to this Message

Ellinoz - 13 Oct 2006 12:58 GMT

Thanks, that's really helpful. How would I assign a fixed height and width
to this? I tried using points, and the chart nigh on disappeared to about
0.5x0.5cm!

> Hi,
>
[quoted text clipped - 23 lines]
> > Many thanks,
> > Eleanor

Reply to this Message

Andy Pope - 13 Oct 2006 14:06 GMT

Not sure what value you used.

This will nake the chart as wide as the columns D:J

ActiveChart.Parent.Width=range("D:J").Width

Cheers
Andy

> Thanks, that's really helpful. How would I assign a fixed height and width
> to this? I tried using points, and the chart nigh on disappeared to about
[quoted text clipped - 27 lines]
>>>Many thanks,
>>>Eleanor

Signature

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Reply to this Message