Q：VBA - 複数のチャートのデータラベルを一度にフォーマットしますか？

Question

誰もが複数のチャートのデータラベルを同時に編集するためのマクロを作成する手助けをすることができるのだろうかと思いました。

私は現在、1つのシートに9つのチャートを持ち、データラベルをフォーマットして「内側の端」に設定する必要があります。私がデータセットを変更するたびに、私は個々のチャートをクリックして手動でフォーマットを内側の端に押す必要があります。 200以上のデータセットがあるのを見ると、これは煩雑になります。これを行うことができるマクロはありますか？

Answer 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