Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
Bonjur.
La macro suivante aligne la taille des graphiques sur la taille du premier.
Il est également possible d'entrer les valeurs de la hauteur et de la
largeur des graphiques et d'exécuter la macro.
Sub test()
Dim ch As ChartObject, Hauteur As Single, Largeur As Single
With ActiveSheet
Hauteur = .ChartObjects(1).Height
Largeur = .ChartObjects(1).Width
For Each ch In .ChartObjects
ch.Height = Hauteur
ch.Width = Largeur
Next ch
End With
End Sub
Cordialement.
Daniel
"tipi" <tipi128@hotpop.com> a écrit dans le message de news:
%23Ps4m8hLGHA.3104@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs
graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
tipi
Merci
La macro marche très bien mais elle s'applique à toute la feuille active. Y a-t-il un moyen de limiter l'application aux graphs sélectionnés ?
Merci encore
"Daniel" a écrit dans le message de news:
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
Merci
La macro marche très bien mais elle s'applique à toute la feuille active.
Y a-t-il un moyen de limiter l'application aux graphs sélectionnés ?
Merci encore
"Daniel" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
uicHpNjLGHA.1312@TK2MSFTNGP09.phx.gbl...
Bonjur.
La macro suivante aligne la taille des graphiques sur la taille du
premier. Il est également possible d'entrer les valeurs de la hauteur et
de la largeur des graphiques et d'exécuter la macro.
Sub test()
Dim ch As ChartObject, Hauteur As Single, Largeur As Single
With ActiveSheet
Hauteur = .ChartObjects(1).Height
Largeur = .ChartObjects(1).Width
For Each ch In .ChartObjects
ch.Height = Hauteur
ch.Width = Largeur
Next ch
End With
End Sub
Cordialement.
Daniel
"tipi" <tipi128@hotpop.com> a écrit dans le message de news:
%23Ps4m8hLGHA.3104@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de
plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
La macro marche très bien mais elle s'applique à toute la feuille active. Y a-t-il un moyen de limiter l'application aux graphs sélectionnés ?
Merci encore
"Daniel" a écrit dans le message de news:
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
Daniel
Sélectionne tes graphiques, puis :
Sub test1() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In Selection ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel
"tipi" a écrit dans le message de news:
Merci
La macro marche très bien mais elle s'applique à toute la feuille active. Y a-t-il un moyen de limiter l'application aux graphs sélectionnés ?
Merci encore
"Daniel" a écrit dans le message de news:
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
Sélectionne tes graphiques, puis :
Sub test1()
Dim ch As ChartObject, Hauteur As Single, Largeur As Single
With ActiveSheet
Hauteur = .ChartObjects(1).Height
Largeur = .ChartObjects(1).Width
For Each ch In Selection
ch.Height = Hauteur
ch.Width = Largeur
Next ch
End With
End Sub
Cordialement.
Daniel
"tipi" <tipi128@hotpop.com> a écrit dans le message de news:
OG4stQlLGHA.2336@TK2MSFTNGP12.phx.gbl...
Merci
La macro marche très bien mais elle s'applique à toute la feuille active.
Y a-t-il un moyen de limiter l'application aux graphs sélectionnés ?
Merci encore
"Daniel" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
uicHpNjLGHA.1312@TK2MSFTNGP09.phx.gbl...
Bonjur.
La macro suivante aligne la taille des graphiques sur la taille du
premier. Il est également possible d'entrer les valeurs de la hauteur et
de la largeur des graphiques et d'exécuter la macro.
Sub test()
Dim ch As ChartObject, Hauteur As Single, Largeur As Single
With ActiveSheet
Hauteur = .ChartObjects(1).Height
Largeur = .ChartObjects(1).Width
For Each ch In .ChartObjects
ch.Height = Hauteur
ch.Width = Largeur
Next ch
End With
End Sub
Cordialement.
Daniel
"tipi" <tipi128@hotpop.com> a écrit dans le message de news:
%23Ps4m8hLGHA.3104@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de
plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Sub test1() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In Selection ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel
"tipi" a écrit dans le message de news:
Merci
La macro marche très bien mais elle s'applique à toute la feuille active. Y a-t-il un moyen de limiter l'application aux graphs sélectionnés ?
Merci encore
"Daniel" a écrit dans le message de news:
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
alias-2003
Daniel a écrit le 10/02/2006 à 12h16 :
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
Bonjour,
Cette macro m'intéresse beaucoup (je ne connais rien au langage vba...) !!! Par contre savez-vous s'il serait possible d'uniformiser la taille de la zone de traçage également ?? Mon souhait serait d'avoir une mise en forme identique (taille zones de traçage et de graphique, positionnement du titre des des légendes...) pour tous mes graphes... C'est sans doute stupide comme question... Merci de vos réponses !!
Bonne journée !
Daniel a écrit le 10/02/2006 à 12h16 :
Bonjur.
La macro suivante aligne la taille des graphiques sur la taille du premier.
Il est également possible d'entrer les valeurs de la hauteur et de la
largeur des graphiques et d'exécuter la macro.
Sub test()
Dim ch As ChartObject, Hauteur As Single, Largeur As Single
With ActiveSheet
Hauteur = .ChartObjects(1).Height
Largeur = .ChartObjects(1).Width
For Each ch In .ChartObjects
ch.Height = Hauteur
ch.Width = Largeur
Next ch
End With
End Sub
Cordialement.
Daniel
"tipi" a écrit dans le message de
news:
%
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs
graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
Bonjour,
Cette macro m'intéresse beaucoup (je ne connais rien au langage vba...) !!! Par contre savez-vous s'il serait possible d'uniformiser la taille de la zone de traçage également ??
Mon souhait serait d'avoir une mise en forme identique (taille zones de traçage et de graphique, positionnement du titre des des légendes...) pour tous mes graphes...
C'est sans doute stupide comme question...
Merci de vos réponses !!
Bonjur. La macro suivante aligne la taille des graphiques sur la taille du premier. Il est également possible d'entrer les valeurs de la hauteur et de la largeur des graphiques et d'exécuter la macro.
Sub test() Dim ch As ChartObject, Hauteur As Single, Largeur As Single With ActiveSheet Hauteur = .ChartObjects(1).Height Largeur = .ChartObjects(1).Width For Each ch In .ChartObjects ch.Height = Hauteur ch.Width = Largeur Next ch End With End Sub
Cordialement. Daniel "tipi" a écrit dans le message de news: %
Bonjour,
Je voudrais pouvoir harmoniser la taille (hauteur et largeur) de plusieurs graphiques dans une feuille excel.
Je n'arrive pas à trouver les propriétés à ajuster
Merci
Bonjour,
Cette macro m'intéresse beaucoup (je ne connais rien au langage vba...) !!! Par contre savez-vous s'il serait possible d'uniformiser la taille de la zone de traçage également ?? Mon souhait serait d'avoir une mise en forme identique (taille zones de traçage et de graphique, positionnement du titre des des légendes...) pour tous mes graphes... C'est sans doute stupide comme question... Merci de vos réponses !!
