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