2009-06-17 3 views
0

모든 차트 옵션을 살펴 보았습니다. 그러나 차트 계열의 선 너비를 한 번에 설정하는 방법을 찾지 못했습니다. 물론 피벗 차트의 시리즈 선택이 변경 될 때마다 매크로를 실행할 수 있지만 더 간단한 방법이 필요합니다. ...피벗 차트의 모든 계열에 선 두께 설정

답변

0

"느린, 해킹 된"솔루션이 있습니다. "CustomChart" 클래스 모듈 :

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 

및 모듈의 상단에있는이 조각 :

Dim myChart As New customChart 

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