Problème d'affichage des graphiques!
NAT_001
-
NAT_001 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
NAT_001 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour tout le monde,
J’ai créé un graphique avec la méthode Add chart, mon soucis c’est j’arrive pas à contrôler l’affichage de mon graphique.
Quand je fais tourner ce bout de code , une nouvelle feuille se rajoute (dont la quelle je trouve mon graphique) !!!
Alors que j’aimerai bien l’afficher dans ma feuille «( donnees ) par exemple sans rajouter d’autre feuilles.
Merci d’avance pour votre aide.
Nat.
------------------------------------------------------------------------------------------------------------------
Sub Test_Graphe()
Dim MonGraphe As Chart
Dim plage As Range
Set plage = Worksheets("donnees").Range(Cells(2, 1), Cells(50, 4))
Set MonGraphe = ThisWorkbook.Charts.Add
MonGraphe.ChartType = xlXYScatter
MonGraphe.SetSourceData plage, xlColumns
End Sub
J’ai créé un graphique avec la méthode Add chart, mon soucis c’est j’arrive pas à contrôler l’affichage de mon graphique.
Quand je fais tourner ce bout de code , une nouvelle feuille se rajoute (dont la quelle je trouve mon graphique) !!!
Alors que j’aimerai bien l’afficher dans ma feuille «( donnees ) par exemple sans rajouter d’autre feuilles.
Merci d’avance pour votre aide.
Nat.
------------------------------------------------------------------------------------------------------------------
Sub Test_Graphe()
Dim MonGraphe As Chart
Dim plage As Range
Set plage = Worksheets("donnees").Range(Cells(2, 1), Cells(50, 4))
Set MonGraphe = ThisWorkbook.Charts.Add
MonGraphe.ChartType = xlXYScatter
MonGraphe.SetSourceData plage, xlColumns
End Sub
Configuration: Windows Vista Internet Explorer 7.0
4 réponses
-
Bonjour,
Pas tester mais si ca va pas j'y reviendrai.
Set MonGraphe = ActiveSheet.Charts.Add -
!!Ca marche pas
j'ai tout essayer a ce niveaux : Set MonGraphe = ActiveSheet.Charts.Add
Set MonGraphe = Worksheets("donnees").Charts.Add
si tu as une autre idée stp... -
J'ai retrouver ca dans mes archices... ca peu probablement te servire.
Sub graphique() Dim graph As ChartObject Dim pt As Point Set graph = Worksheets("feuil1").ChartObjects.Add(70, 6850, 430, 270) With graph.Chart .ChartType = xl3DPie .SeriesCollection.NewSeries .SeriesCollection(1).XValues = Worksheets("feuil1").Range("A1:A20") .SeriesCollection(1).Values = Worksheets("feuil1").Range("A21:A40") .SeriesCollection(1).Name = "Votre financement sur base annuelle" .SeriesCollection(1).HasDataLabels = True .SeriesCollection(1).DataLabels.Position = xlLabelPositionBestFit .SeriesCollection(1).HasLeaderLines = True .SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _ AutoText:=True, LegendKey:=False, HasLeaderLines:=True '.SeriesCollection(1).LeaderLine.Border.ColorIndex = 20 .HasLegend = False .ChartArea.Interior.ColorIndex = xlPatternNone .ChartArea.Border.ColorIndex = xlPatternNone .PlotArea.Interior.ColorIndex = xlPatternNone .SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent .SeriesCollection(1).DataLabels.Font.Size = 10 ' .Name = "Arial" ' .FontStyle = "Normal" ' .Size = 12 End With For Each pt In graph.Chart.SeriesCollection(1).Points pt.Explosion = 10 Next pt End Sub
A+ -
Merci beaucoup,
Je vais regarder ton code.
a+
