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
A voir également:
- Problème d'affichage des graphiques!
- Affichage double ecran - Guide
- Problème affichage fenêtre windows 10 - Guide
- Windows 11 affichage classique - Guide
- Problème affichage facebook ✓ - Forum Facebook
- Problème affichage page internet google chrome ✓ - Forum Google Chrome
4 réponses
!!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 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.
A+
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+
