Définir le poids de ligne pour toutes les séries dans le graphique pivot

Question

J'ai essayé de parcourir toutes les options de graphique, mais je n'arrive pas à trouver une façon de définir la largeur de ligne de la série de graphiques une fois pour toutes. Bien sûr, je pourrais lancer une macro chaque fois que la sélection de série dans le tableau croisé dynamique est changée, mais j'espère qu'il y a une manière plus simple ...

Answer 1

Voici la solution actuelle (lente, hacky) - Un "CustomChart" module de classe:

Option Explicit 

Public WithEvents customChart As Chart 

Private Sub customChart_Calculate() 
    Dim customSeries As series 
    Application.ScreenUpdating = False 

    For Each customSeries In customChart.SeriesCollection 
     customSeries.Border.Weight = xlThick 
    Next 

    Application.ScreenUpdating = True 
End Sub 

et cet extrait dans la partie supérieure d'un module:

Dim myChart As New customChart 

Sub Auto_Open() 
    Set myChart.customChart = Charts(1) 
End Sub