sélection de graphe par vba

[albert]

Bonjour à tous, bonjour forum,

Cette macro (dollaror.zip)
télécharge les données quotidiennes de l’or et du dollar sur la banque de France.
En cliquant sur « MAJ », j’obtiens un graphe en Feuil2 , D52. Ce graphe, je veux le remonter en E5, sous le bouton et ‘en plus !) je veux l’agrandir…
Je fais un code avec l’enregistreur de macro :
Sub DEPLACE()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes(1).IncrementLeft 40.5
ActiveSheet.Shapes(1).IncrementTop -572.25
ActiveSheet.Shapes(1).ScaleWidth 1.3, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes(1).ScaleHeight 1.49, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.Visible = False
Windows("ordollar.xls").Activate
Range("J5:J6").Select
Range("J6").Activate
End Sub

Au lieu de prendre le graphe dans la page, il agrandit le bouton « MAJ »

… et rien à faire pour l’en dissuader…

Par quel mystérieux procédé, je pourrais sélectionner le graphique à la place du bouton ???
(je suppose que ce sont 2 objets et que le code prend le premier ???)

d’avance

albert

 

[albert]

Euréka!!!
dans la macro
Sub nom()

'----------------noms étiquette
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = Sheets("Feuil1").Range("A1")
ActiveChart.SeriesCollection(2).Name = Sheets("Feuil2").Range("A1")
'--------------place étiquette
ActiveSheet.ChartObjects(1).Activate
'--------------modification des dimensions du graphe
ActiveSheet.ChartObjects(1).Width = 500
ActiveSheet.ChartObjects(1).Height = 300
ActiveSheet.ChartObjects(1).Top = 50

j'ai ajouté 3 lignes :

ActiveSheet.ChartObjects(1).Width = 500
ActiveSheet.ChartObjects(1).Height = 300
ActiveSheet.ChartObjects(1).Top = 50

et ça marche

 

[albert]

décidément, je manque d'habileté avec les gif animés