Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Normalement, nous pouvons placer un graphique au hasard lors de la création ou du déplacement dans Excel. Cependant, dans certains cas particuliers, vous pouvez placer le graphique à une position précise, par exemple, commencer à la cellule A1, rester dans la plage A1: D5, ou bien encore. Ici, je vais introduire un VBA pour définir la position absolue d'un graphique dans Excel.

Définir la position absolue d'un graphique dans Excel



Définir la position absolue d'un graphique dans Excel

Par exemple, vous avez créé un graphique et l'avez placé au hasard dans la feuille de calcul comme illustré ci-dessous. Maintenant, je vais introduire un VBA pour déplacer rapidement le graphique vers une position précise et absolue facilement.

1. Sélectionnez le graphique pour lequel vous définirez la position d'absolution et appuyez sur autre + F11 clés pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Moduleet coller sous VBA dans la nouvelle fenêtre de module.

VBA: Définir la position d'absolution 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

Note: Dans le code ci-dessus, Définir xRg = Range ("D1: J13") signifie déplacer et placer le graphique dans la plage D1: J13. Vous pouvez changer la gamme selon vos besoins.

3. presse F5 touche ou cliquez sur le course bouton pour exécuter cette VBA.

Maintenant, vous verrez le graphique est déplacé à la position précise que vous avez spécifié dans le VBA. Voir la capture d'écran:


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.