Roland_M
XLDnaute Barbatruc
Bien le bonsoir à tous,
je reviens vers vous au sujet de mon graphique histo barres horizontales
j'ai cherché sur le net mais rien à ce sujet pourtant simple et précis !
donc histo avec barres horizontales qui ressemble à ceci:
[REPARTITION DEFAUTS]
Defaut1 ___
Defaut2 ____
Defaut3 ___
. . .
mon problème est le suivant, régler la hauteur d'après le nombre de données, j'entend par là le nombre de barres qui peut aller 1 à 150 barres
si je règle sur une hauteur fixe exp, ActiveChart.ChartArea.Height=400, si j'ai seulement une dizaines de barres j'ai des barres énormes
par-contre si j'en ai 150 barres, tout est tassé et évidemment illisible !
pour 70 barres j'avais un histo correcte avec height de 940
j'ai donc essayé avec une hauteur de 940/70 barres et multiplié par le nombre réel de barres
je sais qu'il y a la hauteur du titre + en bas l'axe des x qu'il faudrait déduire pour multiplier ensuite . . .
mais malgré tous mes essais rien de concluant !?
je fais donc appel à vous !
d'une est-ce possible ?
si oui comment ?
grand merci d'avance à tous les intervenants.
la dernière fois c'est job75 qui m'a dépanné (encore merci à lui)
EDIT: après moult essais, j'arrive à ceci qui me dépanne bien ! (voir s'il y a mieux et surtout fiable!)
Hhisto = 50 + (12.75 * NbrDeBarres)
ActiveSheet.ChartObjects(GraphHisto$).Activate
ActiveChart.ChartArea.Height = Hhisto
ActiveChart.PlotArea.Top = 25
ActiveChart.PlotArea.Height = Hhisto - 25
je reviens vers vous au sujet de mon graphique histo barres horizontales
j'ai cherché sur le net mais rien à ce sujet pourtant simple et précis !
donc histo avec barres horizontales qui ressemble à ceci:
[REPARTITION DEFAUTS]
Defaut1 ___
Defaut2 ____
Defaut3 ___
. . .
mon problème est le suivant, régler la hauteur d'après le nombre de données, j'entend par là le nombre de barres qui peut aller 1 à 150 barres
si je règle sur une hauteur fixe exp, ActiveChart.ChartArea.Height=400, si j'ai seulement une dizaines de barres j'ai des barres énormes
par-contre si j'en ai 150 barres, tout est tassé et évidemment illisible !
pour 70 barres j'avais un histo correcte avec height de 940
j'ai donc essayé avec une hauteur de 940/70 barres et multiplié par le nombre réel de barres
je sais qu'il y a la hauteur du titre + en bas l'axe des x qu'il faudrait déduire pour multiplier ensuite . . .
mais malgré tous mes essais rien de concluant !?
je fais donc appel à vous !
d'une est-ce possible ?
si oui comment ?
grand merci d'avance à tous les intervenants.
la dernière fois c'est job75 qui m'a dépanné (encore merci à lui)
EDIT: après moult essais, j'arrive à ceci qui me dépanne bien ! (voir s'il y a mieux et surtout fiable!)
Hhisto = 50 + (12.75 * NbrDeBarres)
ActiveSheet.ChartObjects(GraphHisto$).Activate
ActiveChart.ChartArea.Height = Hhisto
ActiveChart.PlotArea.Top = 25
ActiveChart.PlotArea.Height = Hhisto - 25
Dernière édition: