redimentionner un graphique patr macro

[PtitPoucet]

Bonjour,

J'ai développé une p'tite appli sous excel, qui effectue des calculs et qui ajoute des graphiques dans mes feuilles de calculs. Mon problème est que suivant la version d'office, l'appel des graphiques est différent. Sur excel 97, tous les graphiques sont appelés Graphique 1 mais sur excel 2000, à un moment ce sera Graphique 1 et à un autre moment ce sera Graphique 7.
J'ai cru qu'il incrémenter mais ça n'a aucune logique (enfin, je n'ai pas compris la logique, s'il y en a une).

y aurait t'il quelqu'un qui aurait une idée pour résoudre mon problème (soit une autre manière pour appeler mon graphique, soit de trouver pourkoi excel les nomment différemments) ???

Mon code pour le moment est le suivant :

ActiveSheet.Shapes("Graphique 7").IncrementLeft 9#
ActiveSheet.Shapes("Graphique 7").IncrementTop -42
ActiveSheet.Shapes("Graphique 7").ScaleWidth 1.46, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 7").ScaleHeight 1.6, msoFalse, _
msoScaleFromTopLeft

Help me, please !!!!

Le PtitPoucet

 

[Yeahou]

Bonjour PtitPoucet, Le forum

pour régler ton problème, référence tes graphiques à la création
dans l'exemple ci joint, tu peux également en profiter pour les renommer ce qui te donnera le même nom quelque soit la version d'excel.
la macro1 crée des graphiques, la macro2 les intégre à une feuille
cela devrait passer sous excel 97

Cordialement, A+


Public Colec_Chart(1 To 999) As Chart, Compteur As Integer
Sub Macro1()
For Compteur = 1 To 3
Set Colec_Chart(Compteur) = Charts.Add
Next Compteur
For Compteur = 1 To 3
Colec_Chart(Compteur).Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A14:B24"), PlotBy _
:=xlColumns
Next Compteur
End Sub
Sub macro2()
For Compteur = 1 To 3
Colec_Chart(Compteur).Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
Next Compteur

End Sub

 

[PtitPoucet]

Un grand merci à toi Yeahou.

Ce que tu m'as répondu, m'a bcq aidé.
Malheuresement, je ne peut intégré les deux macros que tu m'as si gentiment donner mais cela m'a donner la solution à mon problème.
Je dois crée un objet de type chart et c lui que je dois appeler ensuite.

Cordialement

@peluche

PtitPoucet