Chart Plot Area Size

[Chris84]

Hi

I have some code which creates 3 bar charts
1st Chart % between 40 and 120
2nd Chart count between 8 and 100
3rd Chart count between 200 and 5000
the code makes the charts identical in size in some instances this works great and makes the data easy to read.

Normally what happens is Chart 2's Vertical (Value) Axis is narrower than the other charts which makes the plot area wider.

Is there a way to set the plot area size of the bar chart without this affecting the axis size, alternatively can I change the Vertical (Value) Axis width.

The code i'm using for the width is

    ActiveChart.PlotArea.Select
    Selection.Left = 20
    Selection.Width = 490

but this includes the axis

Any help is greatly appreciated

 

[Chris84]

Hi AlphaFrog

I am getting a compile error on the above code Variable not defined and w# = is highlighted

Thanks

 

[AlphaFrog]

Try this...

    [COLOR=#ff0000]Dim w As Double[/COLOR]
    [COLOR=darkblue]With[/COLOR] ActiveChart
        .Axes(xlValue).TickLabels.NumberFormat = "0000"
        w = .PlotArea.InsideWidth
        .Axes(xlValue).TickLabels.NumberFormat = "0"
        [COLOR=darkblue]With[/COLOR] .PlotArea
            w = .InsideWidth - w
            .Width = .Width - w
            .Left = Abs(.Left - w)
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

Read this about declaring variable and the use of Option Explicit
Declaring Variables

 

[Chris84]

Hi AlphaFrog

Found another way using the InsideWidth from your code

    With ActiveChart
        .PlotArea.InsideWidth = 450
        .PlotArea.InsideLeft = 60
        .Axes(xlValue).AxisTitle.Left = 1
    End With

Thanks