R
Reeaz
Guest
Bonjour,
je suis en train d'automatiser la création de graph à l'aide de l'enregistreur de macro. Mais, lorsqu'il me renvoie le graph, il me le met au milieu de la feuille. Moi j'aimerais qu'il me le mette dans une cellule bien définie pour que je puisse le sélectionner après et faire un copier coller sur une autre feuille.
De plus j'aimerais savoir si c'est possible de nommer mon graph car ds ma feuille, il y aura deux graphes, donc si je veux faire des copier coller de ces graph, ce serait plus pratique.
Voici ma macro, si qqun pouvait me la modifier, ce serait cool.Merci.
Sub Macro3()
'
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Tous").Range("G25:G35,J25:J35"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tous"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Evolution Trimestrielle de la Répartition par Tranche de Ratings (En % de l'actif)"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.Axes(xlCategory).Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlContinuous
End With
With Selection
.MajorTickMark = xlOutside
.MinorTickMark = xlNone
.TickLabelPosition = xlNextToAxis
End With
ActiveChart.PlotArea.Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.Axes(xlValue).MajorGridlines.Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlDot
End With
ActiveChart.ChartArea.Select
End Sub
je suis en train d'automatiser la création de graph à l'aide de l'enregistreur de macro. Mais, lorsqu'il me renvoie le graph, il me le met au milieu de la feuille. Moi j'aimerais qu'il me le mette dans une cellule bien définie pour que je puisse le sélectionner après et faire un copier coller sur une autre feuille.
De plus j'aimerais savoir si c'est possible de nommer mon graph car ds ma feuille, il y aura deux graphes, donc si je veux faire des copier coller de ces graph, ce serait plus pratique.
Voici ma macro, si qqun pouvait me la modifier, ce serait cool.Merci.
Sub Macro3()
'
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Tous").Range("G25:G35,J25:J35"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tous"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Evolution Trimestrielle de la Répartition par Tranche de Ratings (En % de l'actif)"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.Axes(xlCategory).Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlContinuous
End With
With Selection
.MajorTickMark = xlOutside
.MinorTickMark = xlNone
.TickLabelPosition = xlNextToAxis
End With
ActiveChart.PlotArea.Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.Axes(xlValue).MajorGridlines.Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlDot
End With
ActiveChart.ChartArea.Select
End Sub