Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ajout d'un shape dans un chart

ajout d'un shape dans un chart

3 réponses
Avatar
Kamel
salut, j'essaye d'ajouter en dynamique un text box dans une feuille chart
mais je n'y arrive pas !

dim C as chart

1-> C.Select
2-> C.Shapes.AddTextbox(msoTextOrientationHorizontal, 20.26, 10.81, _
746.99, 93.2).Select

j'ai un message d'errreur à la 2ème ligne !
une idée ?

merci
Signaler un problème avec ce contenu

3 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
J-Dan
salut Kamel,

essaie :
ActiveChart.Shapes.AddTextbox _
(msoTextOrientationHorizontal....
(extrait de l'enregistreur de macros)
bon courage


-----Message d'origine-----
salut, j'essaye d'ajouter en dynamique un text box dans
une feuille chart

mais je n'y arrive pas !

dim C as chart

1-> C.Select
2-> C.Shapes.AddTextbox(msoTextOrientationHorizontal,
20.26, 10.81, _

746.99, 93.2).Select

j'ai un message d'errreur à la 2ème ligne !
une idée ?

merci


.



Avatar
J-Dan
encore moi,

je n'avais pas teste ton code, c'est dans la declaration
de C que ca coince. Declare C en ChartObject :

Dim c As ChartObject
Set C = Sheets(1).ChartObjects("graphique 1")
C.Select
ActiveChart.Shapes.AddTextbox _
(msoTextOrientationHorizontal ....

bon courage

-----Message d'origine-----
salut Kamel,

essaie :
ActiveChart.Shapes.AddTextbox _
(msoTextOrientationHorizontal....
(extrait de l'enregistreur de macros)
bon courage


-----Message d'origine-----
salut, j'essaye d'ajouter en dynamique un text box dans
une feuille chart

mais je n'y arrive pas !

dim C as chart

1-> C.Select
2-> C.Shapes.AddTextbox(msoTextOrientationHorizontal,
20.26, 10.81, _

746.99, 93.2).Select

j'ai un message d'errreur à la 2ème ligne !
une idée ?

merci


.

.





Avatar
Kamel
ok merci je teste ca !

"J-Dan" wrote in message
news:2c5e001c468c5$2f997a50$
encore moi,

je n'avais pas teste ton code, c'est dans la declaration
de C que ca coince. Declare C en ChartObject :

Dim c As ChartObject
Set C = Sheets(1).ChartObjects("graphique 1")
C.Select
ActiveChart.Shapes.AddTextbox _
(msoTextOrientationHorizontal ....

bon courage

-----Message d'origine-----
salut Kamel,

essaie :
ActiveChart.Shapes.AddTextbox _
(msoTextOrientationHorizontal....
(extrait de l'enregistreur de macros)
bon courage


-----Message d'origine-----
salut, j'essaye d'ajouter en dynamique un text box dans
une feuille chart

mais je n'y arrive pas !

dim C as chart

1-> C.Select
2-> C.Shapes.AddTextbox(msoTextOrientationHorizontal,
20.26, 10.81, _

746.99, 93.2).Select

j'ai un message d'errreur à la 2ème ligne !
une idée ?

merci


.

.