Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajouter des formes dans un graph

Ajouter des formes dans un graph

2 réponses
Avatar
Thom
Bonjour à tous,

Je cherche à ajouter des rectangle dans un graphique Excel ave la méthode :

ActiveChart.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100).Select

Le problème que le rectangle est dessiné à partir de l'origine de l'objet
graph c'est à dire à l'angle supérieur gauche de mon graph

Ce que je veux, c'est faire dessiner le coin inférieur droit de mon
rectangle exactement à l'origine de mon graph(0,0)

Cerise sur le gâteau, j'aimerai ensuite pouvoir agrandir dynamiquement le
rectangle en respectant l'échelle du graph.

Merci pour vos réponse,

Thomas
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Tatanka
Salut Thom,

Ce que je veux, c'est faire dessiner le coin inférieur droit de mon rectangle exactement à l'origine de mon graph(0,0)


Avec un graphique en nuage de points, cette macro
semble répondre à la question.

Sub Ajoute_Rectangle_Dans_Graphique()
With ActiveChart
L = .Axes(xlValue).Left
T = .Axes(xlCategory).Top
WR = 20
HR = 30
.Shapes.AddShape msoShapeRectangle, L - WR, T - HR, WR, HR
End With
End Sub

Serge










"Thom" a écrit dans le message de news: %
Bonjour à tous,

Je cherche à ajouter des rectangle dans un graphique Excel ave la méthode :

ActiveChart.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100).Select

Le problème que le rectangle est dessiné à partir de l'origine de l'objet graph c'est à dire à l'angle supérieur gauche de mon
graph

Ce que je veux, c'est faire dessiner le coin inférieur droit de mon rectangle exactement à l'origine de mon graph(0,0)

Cerise sur le gâteau, j'aimerai ensuite pouvoir agrandir dynamiquement le rectangle en respectant l'échelle du graph.

Merci pour vos réponse,

Thomas





Avatar
Thom
Oui, ça marche bien!!

Seul petit souci, c'est que je n'arrive pas à récupérer l'échelle de mes
axes pour pouvoir caller l'incrémentation de la taille du rectangle dessus


"Tatanka" a écrit dans le message de news:

Salut Thom,

Ce que je veux, c'est faire dessiner le coin inférieur droit de mon
rectangle exactement à l'origine de mon graph(0,0)


Avec un graphique en nuage de points, cette macro
semble répondre à la question.

Sub Ajoute_Rectangle_Dans_Graphique()
With ActiveChart
L = .Axes(xlValue).Left
T = .Axes(xlCategory).Top
WR = 20
HR = 30
.Shapes.AddShape msoShapeRectangle, L - WR, T - HR, WR, HR
End With
End Sub

Serge










"Thom" a écrit dans le message de news:
%
Bonjour à tous,

Je cherche à ajouter des rectangle dans un graphique Excel ave la méthode
:

ActiveChart.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100).Select

Le problème que le rectangle est dessiné à partir de l'origine de l'objet
graph c'est à dire à l'angle supérieur gauche de mon graph

Ce que je veux, c'est faire dessiner le coin inférieur droit de mon
rectangle exactement à l'origine de mon graph(0,0)

Cerise sur le gâteau, j'aimerai ensuite pouvoir agrandir dynamiquement le
rectangle en respectant l'échelle du graph.

Merci pour vos réponse,

Thomas