VBA, Graphique, supprimer le contour des marques d'une série

danielco

XLDnaute Accro
Bonjour,

L'enregistreur donne ceci :

VB:
  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.FullSeriesCollection(1).Format.Line.Visible = msoFalse

Ca ne fonctionne pas.

Merci de votre aide.

Daniel
 

Pièces jointes

  • testVBA.xlsm
    22 KB · Affichages: 8

job75

XLDnaute Barbatruc
Bonjour danielco, Efgé,

Chez moi ceci efface bien l'encadrement des points sur le fichier post #1 :
VB:
Sub Macro7()
With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line
    .Visible = msoTrue
    .Visible = msoFalse
End With
End Sub
A+
 

danielco

XLDnaute Accro
Oui, mon code est équivalent et il ne fonctionne pas :
VB:
  ActiveSheet.ChartObjects(1).Activate
  ActiveChart.FullSeriesCollection(1).Format.Line.Visible = msoFalse
J'ai aussi essayé par acquis de conscience :
Code:
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse

Daniel
 

Discussions similaires

Réponses
6
Affichages
266

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo