Bonjour à tous, j'ai une macro qui crées des graphiques sur la feuille. Le
probleme est le suivant : je n'arrive pas à leur affecter un nom pour pouvoir
les déplacer après.
voici mon code :
'ajout graph pdt1 austria
Sheets("Austria").Select
Columns("A:E").Select
Charts.Add
ActiveChart.Name = "essai"
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Austria").Range("A1:E3"),
PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="pdt1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = dat
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "$ USD"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = ""
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlTop
ActiveChart.HasDataTable = False
comme vous le voyez bien j'ai un ActiveChart.Name avec une valeur, mais
derriere quand je l'appelle avec :
With Sheets("pdt1")
.Shapes("essai").Top = 0
.Shapes("essai").Left = 0
endwith
il est incapable de le localiser.
si je fait un macro et je déplace manuellement mon graph,
il est appeler dans le macro "graphique 35", et vu que cest un numero qui
evolue, a chaque creation de graph; il mest impossible de le déplacer!!
