How do I get VBA to generate a chart with square axes?

[patrick]

I have generated a chart using Excel data but wish to ensure that the chart
is square (i.e. the x and the y axes are to the same scale). an anyone help
please?

[Ardus Petus]

Try this:

'---------
Sub SquareChart()
With ActiveSheet.Shapes("Graphique 1")
.Height = .Width
End With
End Sub
'---------

Regards,
--
AP

"patrick" <[email protected]> a écrit dans le message de
news: [email protected]...
>I have generated a chart using Excel data but wish to ensure that the chart
> is square (i.e. the x and the y axes are to the same scale). an anyone
> help
> please?

[patrick]

Thanks for this. I have found some code that allows me to square my charts BUT
I would also like to be able to scale the grid squares on my chart - e.g.
each Major Unit is 1 centimetre. This will require scaling of both height and
width to maintain the square grid.
All help appreciated - thanks
Patrick

"Ardus Petus" wrote:

> Try this:
>
> '---------
> Sub SquareChart()
> With ActiveSheet.Shapes("Graphique 1")
> .Height = .Width
> End With
> End Sub
> '---------
>
> Regards,
> --
> AP
>
> "patrick" <[email protected]> a écrit dans le message de
> news: [email protected]...
> >I have generated a chart using Excel data but wish to ensure that the chart
> > is square (i.e. the x and the y axes are to the same scale). an anyone
> > help
> > please?
>
>
>

[Jon Peltier]

This will get you part of the way:

http://peltiertech.com/Excel/Charts/SquareGrid.html

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

"patrick" <[email protected]> wrote in message
news:[email protected]...
> Thanks for this. I have found some code that allows me to square my charts
> BUT
> I would also like to be able to scale the grid squares on my chart - e.g.
> each Major Unit is 1 centimetre. This will require scaling of both height
> and
> width to maintain the square grid.
> All help appreciated - thanks
> Patrick
>
> "Ardus Petus" wrote:
>
>> Try this:
>>
>> '---------
>> Sub SquareChart()
>> With ActiveSheet.Shapes("Graphique 1")
>> .Height = .Width
>> End With
>> End Sub
>> '---------
>>
>> Regards,
>> --
>> AP
>>
>> "patrick" <[email protected]> a écrit dans le message de
>> news: [email protected]...
>> >I have generated a chart using Excel data but wish to ensure that the
>> >chart
>> > is square (i.e. the x and the y axes are to the same scale). an anyone
>> > help
>> > please?
>>
>>
>>