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. Maintenant, je vais vous présenter un VBA pour déplacer rapidement le graphique vers une position précise et absolue facilement.

1. Sélectionnez le graphique pour lequel 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 le 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") signifie déplacer et placer le graphique dans la plage D1:J13. Vous pouvez modifier la plage selon vos besoins.

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

Vous verrez maintenant que le graphique est déplacé vers la position précise que vous avez spécifiée dans le VBA. Voir la capture d'écran :

Si vous avez installé Kutools pour Excel, vous pouvez appliquer son outil graphique impressionnant – Définir la position absolue du graphique pour déplacer et redimensionner un graphique vers une plage spécifiée dans Excel.

1. Sélectionnez le graphique que vous allez définir à une position absolue, puis cliquez Kutools > Graphiques > Outils de graphique > Définir la position absolue du graphique.

2. Dans la boîte de dialogue qui apparaît, spécifiez la position où vous déplacerez le graphique, puis cliquez sur le Ok bouton.

Maintenant, le graphique sélectionné est déplacé vers la position spécifiée et redimensionné à la plage spécifiée simultanément. Voir la capture d'écran :