Lorsque vous créez un graphique Excel, en tant qu’objet à placer dans une feuille de calcul, l’objet graphique est automatiquement dimensionné à une taille prédéterminée sélectionnée par Excel. Il se peut que vous ne souhaitiez pas que l’objet de graphique ait la taille déterminée par Excel; vous souhaiterez peut-être que vos objets de graphique aient toujours une taille standard, afin qu’ils apparaissent toujours de la même manière par rapport à vos feuilles de calcul.

Il n’existe aucun moyen de spécifier une taille d’objet de graphique lorsque vous créez le graphique. Cependant, vous pouvez redimensionner l’objet de graphique après sa création, tout comme vous pouvez redimensionner d’autres éléments graphiques de votre feuille de calcul. Vous pouvez écrire une macro pour créer l’objet à une taille particulière, mais cela supprimerait une grande partie de la flexibilité inhérente aux outils de création de graphiques d’Excel. Par exemple, lorsque vous spécifiez la taille de l’objet graphique en cours de création, vous devez également spécifier d’autres caractéristiques, telles que le type de graphique. Il est plus facile de sélectionner et de choisir de telles caractéristiques via les outils du ruban que de le faire dans une macro.

Cependant, vous pouvez facilement créer une macro qui redimensionnera un objet de graphique existant. Les raccourcis clavier d’une telle macro modifieraient les propriétés Largeur et Hauteur de l’objet graphique. Dans VBA, ces propriétés sont spécifiées en points. Ainsi, si vous souhaitez redimensionner l’objet graphique de sorte qu’il mesure 4 pouces de haut, vous définissez la propriété Height sur 288, qui est le nombre de points en 4 pouces (4 * 72).

La macro suivante donne un exemple d’une façon de parcourir tous les objets de graphique d’une feuille de calcul et de leur donner la même taille. Cette macro particulière définit la largeur de chaque objet graphique à 4 pouces et la hauteur à 3 pouces.

Sub ResizeCharts()

For j = 1 To ActiveSheet.Shapes.Count         If ActiveSheet.Shapes(j).Type = msoChart Then             ActiveSheet.Shapes(j).Width = 4  72             ActiveSheet.Shapes(j).Height = 3  72         End If     Next j End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (8526) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Specifying_the_Size_of_Chart_Objects [Spécification de la taille des objets de graphique].