In diesem Beispiel wird um die Diagrammfläche und die Zeichnungsfläche in Chart1 ein Rahmen gelegt.
With Charts("Chart1") .ChartArea.Border.LineStyle = xlDashDot With .PlotArea.Border .LineStyle = xlDashDotDot .Weight = xlThick End With End With