VBA 图例和绘图区域大小调整

使用VBA语言编写的宏可以帮助我们自动调整图例和绘图区域的大小。在Excel中，图例是用来解释图表中各个系列的标签，而绘图区域是用来展示数据的。有时候，图例和绘图区域的大小可能不合适，可能会导致图表显示不完整或者不美观。通过使用VBA编写的宏，我们可以轻松地调整图例和绘图区域的大小，以达到我们想要的效果。

vba
Sub AdjustLegendAndPlotAreaSize()
    Dim cht As ChartObject
    Dim chtName As String
    
    ' 设置图表名称
    chtName = "Chart 1" ' 这里需要根据实际情况修改
    
    ' 通过图表名称获取图表对象
    Set cht = ActiveSheet.ChartObjects(chtName)
    
    ' 调整图例和绘图区域的大小
    With cht.Chart
        .Legend.Top = 100 ' 调整图例的上边距
        .Legend.Left = 400 ' 调整图例的左边距
        .PlotArea.Top = 100 ' 调整绘图区域的上边距
        .PlotArea.Left = 100 ' 调整绘图区域的左边距
        .PlotArea.Width = 400 ' 调整绘图区域的宽度
        .PlotArea.Height = 200 ' 调整绘图区域的高度
    End With
End Sub