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