OVH Cloud OVH Cloud

Axes X et Y identiques sur un graphe excel

2 réponses
Avatar
Jean LANNELUCQ
Bonsoir =E0 tous,

Existe t-il une astuce pour avoir des axes ayant strictement la m=EAme=20
echelle ?

Pour visualiser un scoring sur excel, j'ai un graphe qui reprend=20
plusieurs s=E9ries formant des quarts de cercles de rayons diff=E9rents :
J'ai pris comme base un graphique XY et comme s=E9rie les s=E9ries calcul=
=E9es=20
comme suit :
Angle variant de 3PI/2 =E0 2PI
Rayon fixe pour chaque s=E9rie
x=3DR x cos(angle) et y =3D R x sin(angle)
Or sur le graphe mes cercles sont ovales !! ce qui fait d=E9sordre.et je=20
suis oblig=E9 de "bidouiller" les axes en collant ma r=E8gle sur l'=E9cran =
et=20
=E7a, je supporte pas !!

Sachant pouvoir compter par avance sur votre coop=E9ration merci par=20
avance et bien =E0 vous tous.

Jean

2 réponses

Avatar
Denis
Bonjour,
je ne connais pas de miracle dans ce cas.
Si tu n'a pas d'étiquettes sur les axes X et Y,
le graphique étant sur ta feuille,

ActiveSheet.Shapes("Graphique 1").Height = 300
ActiveSheet.Shapes("Graphique 1").Width = 300

te donne des axes parfaits
Si tu as des étiquettes sur les axes il faudrait changer
une des valeurs pour tenir compte du nombre de chiffres et
de la police utilisée!!

Denis

-----Message d'origine-----
Bonsoir à tous,

Existe t-il une astuce pour avoir des axes ayant
strictement la même

echelle ?

Pour visualiser un scoring sur excel, j'ai un graphe qui
reprend

plusieurs séries formant des quarts de cercles de rayons
différents :

J'ai pris comme base un graphique XY et comme série les
séries calculées

comme suit :
Angle variant de 3PI/2 à 2PI
Rayon fixe pour chaque série
x=R x cos(angle) et y = R x sin(angle)
Or sur le graphe mes cercles sont ovales !! ce qui fait
désordre.et je

suis obligé de "bidouiller" les axes en collant ma règle
sur l'écran et

ça, je supporte pas !!

Sachant pouvoir compter par avance sur votre coopération
merci par

avance et bien à vous tous.

Jean
.



Avatar
Denis
Bonjour,

Très bestial, mais cela a l'air de marcher

Sub test2()
ActiveSheet.Shapes("Graphique 1").Width = 300
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlCategory).Select
a = ActiveChart.Axes(xlCategory).Width
b = a
Do
ActiveSheet.Cells(25, 1) = b
ActiveSheet.Shapes("Graphique 1").Height = b
b = b + 1
Loop Until ActiveChart.Axes(xlValue).Height >= a
End Sub

Denis
-----Message d'origine-----
Bonsoir à tous,

Existe t-il une astuce pour avoir des axes ayant
strictement la même

echelle ?

Pour visualiser un scoring sur excel, j'ai un graphe qui
reprend

plusieurs séries formant des quarts de cercles de rayons
différents :

J'ai pris comme base un graphique XY et comme série les
séries calculées

comme suit :
Angle variant de 3PI/2 à 2PI
Rayon fixe pour chaque série
x=R x cos(angle) et y = R x sin(angle)
Or sur le graphe mes cercles sont ovales !! ce qui fait
désordre.et je

suis obligé de "bidouiller" les axes en collant ma règle
sur l'écran et

ça, je supporte pas !!

Sachant pouvoir compter par avance sur votre coopération
merci par

avance et bien à vous tous.

Jean
.