In diesem Beispiel wird dem ersten eingebetteten Diagramm in Sheet1 ein Titel zugewiesen. Anschließend werden Schriftgröße und Art des Hintergrunds für den Titel festgelegt.
With Worksheets("Sheet1").ChartObjects(1).Chart .HasTitle = True .ChartTitle.Text = "1995 Rainfall Totals by Month" With .ChartTitle.Font .Size = 10 .Background = xlBackgroundTransparent End With End With