Q: VBA - Multiple Chart Data Labels gleichzeitig formatieren?

Question

Ich frage mich, ob jemand mir helfen kann, ein Makro zu erstellen, um Datenbeschriftungen mehrerer Diagramme gleichzeitig zu bearbeiten.

Ich habe derzeit 9 Diagramme auf einem einzelnen Blatt, die die Datenbeschriftungen auf "Inside End" formatieren müssen. Jedes Mal, wenn ich den Datensatz ändere, muss ich auf jedes einzelne Diagramm klicken und das Format manuell auf das innere Ende drücken. Da mehr als 200 Datensätze vorhanden sind, wird dies umständlich. Gibt es ein Makro, das das kann?

Answer 1

Ich bin mir nicht sicher, was "Inside End" bedeutet, aber Sie sollten in der Lage sein, die Macro Records einzuschalten, durch Ihre üblichen Schritte zu klicken und dann den Recorder anzuhalten. Sie haben den Code, den Sie für die von Ihnen beschriebenen Änderungen benötigen. Durchlaufen Sie nun einfach jedes Diagrammobjekt und nehmen Sie die erforderlichen Änderungen vor.

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