In diesem Beispiel wird im ersten eingebetteten Diagramm in Sheet1 die Schriftart für den Text des Legendeneintrags am Kopf der Legende (gewöhnlich die Legende der ersten Datenreihe) geändert.
Worksheets("sheet1").ChartObjects(1).Chart _
.Legend.LegendEntries.Item(1).Font.Italic = True