2017-04-14 3 views
0

누구든지 여러 차트의 데이터 레이블을 동시에 편집 할 수있는 매크로를 만들 수 있는지 궁금합니다.Q : VBA - 한 번에 여러 차트 데이터 레이블 서식?

저는 현재 한 시트에 "Inside end"형식으로 데이터 레이블을 설정해야하는 9 개의 차트가 있습니다. 데이터 세트를 변경할 때마다 각 개별 차트를 클릭하고 수동으로 내부 끝의 형식을 눌러야합니다. 200 개 이상의 데이터 세트가있는 것을 보면 이는 번거로워집니다. 이 작업을 수행 할 수있는 매크로가 있습니까?

답변

1

'내부'가 무슨 뜻인지 잘 모르겠지만 매크로 기록을 켜고 일반적인 단계를 클릭 한 다음 레코더를 중지 할 수 있어야합니다. 설명 된 변경을 수행하는 데 필요한 코드를 갖게됩니다. 이제 각 차트 개체를 반복하고 필요한 변경 작업을 수행하십시오.

Sub LoopThroughCharts() 
'PURPOSE: Loop through every graph in the active workbook 
'SOURCE: www.TheSpreadsheetGuru.com/The-Code-Vault 

Dim sht As Worksheet 
Dim CurrentSheet As Worksheet 
Dim cht As ChartObject 

Application.ScreenUpdating = False 
Application.EnableEvents = False 

Set CurrentSheet = ActiveSheet 

For Each sht In ActiveWorkbook.Worksheets 
    For Each cht In sht.ChartObjects 
    cht.Activate 

    'Do something with the chart... 

    Next cht 
Next sht 

CurrentSheet.Activate 
Application.EnableEvents = True 

End Sub