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