AddLabel

Folgendes VBA-Unterprogramm fügt in alle Charts einer Excel-Datei ein Textfeld / Label rechts oben mit dem aktuellen Monat (Januar, Februar ...) und Jahr (vierstellig) ein.

Sub InsertALabelIntoAChart()

Dim mySheet As Worksheet
Dim myChart As Chart

For Each mySheet In Worksheets

  If mySheet.ChartObjects.Count > 0 Then
  
    Set myChart = mySheet.ChartObjects(1).Chart

    With myChart.Shapes.AddLabel(msoTextOrientationHorizontal, 535, 4, 144, 24)
      .Name = "Stand"
      .TextFrame.Characters.Text = Format(Date, "mmm yyyy")
      .TextFrame.Characters.Font.Size = 18
      .TextFrame.Characters.Font.Bold = True
    End With

  End If
  
Next
 
End Sub