Exemple : Utiliser les objets de référence en VBA
Version avec fonction native de Excel
Imaginons que vous avez un classeur Excel contenant des données sur les ventes de votre entreprise. Vous souhaitez créer un graphique en barres qui affiche les ventes par mois sur les 12 derniers mois. Vous pouvez utiliser l’objet intégré ChartObject pour créer le graphique, comme ceci :
Sub CreateChart() Dim cht As ChartObject Set cht = ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225) cht.Chart.SetSourceData Source:=Range("A1:B12") cht.Chart.ChartType = xlBarClustered End Sub Si vous cherchez à automatiser votre travail sachez que vous avons un guide pour optimiser vos fichiers excel avec VBA.
Version avec utilisation des objets de référence
Cependant, si vous souhaitez ajouter de nouvelles fonctionnalités au graphique, comme la possibilité de zoomer ou de panoramiquer, vous pouvez utiliser un objet de référence pour accéder aux fonctionnalités de l’application Microsoft Graph. Voici comment procéder :
- Ouvrez le menu « Outils » dans l’éditeur VBA et sélectionnez « Références ».
- Dans la boîte de dialogue « Références », cochez la case à côté de « Microsoft Graph 16.0 Object Library » et cliquez sur « OK ».
- Utilisez le code suivant pour créer le graphique en utilisant l’objet de référence Graph :
Sub CreateChart() Dim cht As Graph.Chart Set cht = ActiveSheet.Shapes.AddChart.Chart cht.SetSourceData Source:=Range("A1:B12") cht.ChartType = xlBarClustered End SubAvec cette méthode, vous pouvez utiliser toutes les fonctionnalités de l’application Microsoft Graph pour personnaliser votre graphique. Cependant, gardez à l’esprit que l’utilisation d’objets de référence peut entraîner une légère perte de performances par rapport aux objets intégrés.
