Comment définir la position absolue d’un graphique dans Excel ?

Par exemple, vous avez créé un graphique et l’avez placé de manière aléatoire dans la feuille de calcul, comme le montre la capture d’écran ci-dessous. Découvrez dès maintenant une macro VBA qui vous permet de déplacer instantanément ce graphique vers une position précise et absolue, en toute simplicité.

1. Sélectionnez le graphique dont vous souhaitez définir la position absolue, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez la macro VBA ci-dessous dans la nouvelle fenêtre du module.

VBA : Définir la position absolue d’un graphique dans Excel

Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

Remarque : Dans le code ci-dessus, Set xRg = Range("D1:J13") indique que le graphique sera déplacé et positionné dans la plage D1:J13. Vous pouvez adapter cette plage selon vos besoins.

3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter cette macro VBA.

Vous remarquerez désormais que le graphique a été déplacé exactement à la position que vous avez définie dans la macro VBA. Voir la capture d’écran :

Si vous avez installé Kutools pour Excel, utilisez son outil graphique exceptionnel – Définir la position absolue du graphique – pour déplacer et redimensionner un graphique dans une plage délimitée sous Excel.

1. Sélectionnez le graphique que vous souhaitez positionner de manière absolue, puis cliquez sur Kutools > Graphiques > Outils de graphique > Définir la position absolue du graphique.

2. Dans la boîte de dialogue qui s’ouvre, indiquez la position vers laquelle vous souhaitez déplacer le graphique, puis cliquez sur le bouton OK.

Le graphique sélectionné est désormais déplacé à la position indiquée et redimensionné simultanément selon la plage limitée. Voir la capture d’écran :