Bonjour,
J'utilise VBA pour faire des graphs sous Excel 2010 mais mes titres et légendes n’apparaissent pas. Je n'arrive pas à les créer même à la main sur les graph générés par VBA, par contre si je fais un nouveau graph a la main la légende est visible et je peux ajouter le titre sans soucis.
Voici mon code
Je sèche complètement, si vous avez une idée de comment remettre les titres merci de votre aide !
J'utilise VBA pour faire des graphs sous Excel 2010 mais mes titres et légendes n’apparaissent pas. Je n'arrive pas à les créer même à la main sur les graph générés par VBA, par contre si je fais un nouveau graph a la main la légende est visible et je peux ajouter le titre sans soucis.
Voici mon code
Code:
Sub plotLuff()
Dim myChart As Chart
Dim oChart As ChartObject
Dim wsL As Worksheet
Dim wsR As Worksheet
Set wsL = ActiveWorkbook.Worksheets("Data")
Set wsR = ActiveWorkbook.Worksheets("Results")
'Créer le graph
wsR.Activate
Cells.Clear
ActiveSheet.DrawingObjects.Delete
wsR.Range("A1").Select
Set oChart = ActiveSheet.ChartObjects.add(Left:=0, Width:=200, Top:=0, Height:=400)
Set myChart = oChart.Chart
myChart.ChartType = xlXYScatterSmoothNoMarkers
myChart.HasTitle = True
myChart.ChartTitle.Text = "Mon titre de graph"
myChart.HasLegend = True
' Effacer les séries inutiles
Do Until myChart.SeriesCollection.Count = 0
myChart.SeriesCollection(1).Delete
Loop
' Remplir le graph
Dim i As Integer
Dim nbLoadCase As Integer
nbLoadCase = 2
For i = 1 To nbLoadCase
myChart.SeriesCollection.NewSeries
myChart.SeriesCollection(i).Name = "LoadCase" & CStr(i)
myChart.SeriesCollection(i).XValues = "=$F$6:$F$10"
myChart.SeriesCollection(i).Values = "=$G$6:$G$10"
Next
ActiveWorkbook.Save
End SubJe sèche complètement, si vous avez une idée de comment remettre les titres merci de votre aide !