VBA : titres et légendes invisibles

[Bulot]

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

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 Sub

Je sèche complètement, si vous avez une idée de comment remettre les titres merci de votre aide !

 

[MJ13]

Re : VBA : titres et légendes invisibles

Bonjour Bulot

Teste ce code:

ActiveChart.ChartArea.Select
          ActiveChart.SetElement (msoElementChartTitleAboveChart)

 

[Bulot]

Re : VBA : titres et légendes invisibles

Bonjour Michel,

Merci pour ta réponse, mais la méthode SetElement ne fonctionne pas : Method 'SetElement' of object '_Chart' failed

Pour avoir un ActiveChart j'ai activé oChart (ChartObject), je ne peux pas activer myChart (Chart). Qu'est ce qui doit être actif, le ChartObject ou le Chart ?

 

[MJ13]

Re : VBA : titres et légendes invisibles

Re

Pour avoir un ActiveChart j'ai activé oChart (ChartObject), je ne peux pas activer myChart (Chart). Qu'est ce qui doit être actif, le ChartObject ou le Chart ?

Alors la 😕.

Mais cela tombe bien, j'ai fait des graphiques aujourdhui 🙂.


Regarde ici le code à la fin:


https://www.excel-downloads.com/threads/extraire-les-derniers-chiffres-en-vba.177102/

 

[Bulot]

Re : VBA : titres et légendes invisibles

Visiblement ils sont directement actif chez toi...

Petite info supplémentaire : Excel doit savoir que mes titres et légendes sont là quelque part car j'ai de la place à droite et en haut ...

 

[MJ13]

Re : VBA : titres et légendes invisibles

Re

Sinon sur XL2010, je crois que l'enregistreur de macros est plus performant pour les graphiques que sur XL2007 😕.

Cela pourrait t'aider 🙂.

 

[MJ13]

Re : VBA : titres et légendes invisibles

Re

Sinon, tu peux faire ceci pour automatiser sur plusieurs graphiques:

Sub ajoute_Leg_Titre_Graphs()
    n = ActiveSheet.ChartObjects.Count
    For i = 1 To n
        ActiveSheet.ChartObjects(i).Activate
        ActiveChart.SetElement (msoElementLegendBottom)
        ActiveChart.SetElement (msoElementChartTitleAboveChart)
    Next
End Sub

 

[Bulot]

Re : VBA : titres et légendes invisibles

Merci beaucoup !
J'aimerai pouvoir te dire que c'est formidable et que ça marche, malheureusement quand j'ai ré ouverts mon fichier pour y apporter tes dernières modifs il était déjà guéri (ma macro se lance à l'ouverture)! (Bon, je n'y comprends strictement rien, ça à l'air un peu aléatoire comme problème, ce qui n'est pas très satisfaisant comme explication...). Enfin j'ai quand même rajouté ce petit bout, histoire de consolider le tout !

Ou alors il a mis un peu de temps à prendre en compte les modifs précédentes (ça non plus c'est pas terrible comme explication!) ?

Bon, dans tous les cas pour l'instant ça marche, j'espère que ça tiendra, et milles mercis pour ta disponibilité !