In diesem Beispiel wird Chart1 in ein Liniendiagramm umformatiert. Anschließend werden dem Diagramm eine Legende sowie Beschriftungen für Rubriken- und Größenachse hinzugefügt.
Charts("Chart1").ChartWizard _ Gallery:=xlLine, _ HasLegend:=True, CategoryTitle:="Year", ValueTitle:="Sales"