Question

你能帮我解决这个问题吗？我想根据单元格引用为我的图表生成最小轴值。

这是我的代码。

Private Sub Worksheet_calculate()
   With ActiveChart.Axes(xlValue)
       .MinimumScale = Worksheets("Chart Data").Range("E111").Value
   End With
End Sub

Answer 1

我这样做：

Private Sub Worksheet_calculate()
    Dim cht As Chart

    Set cht = Worksheets("Chart").ChartObjects("Chart 1").Chart

    cht.Axes(xlValue).MinimumScale = Worksheets("Chart Data").Range("E111").Value
End Sub

设置对图表对象的引用，这样您就不需要了 ActiveChart
您可能需要使用名称更新ChartObjects("Chart 1") 你的图表
如果您在页面上只有一个图表，也可以将其编入索引可以使用ChartObjects(1)

使用VBA在图表轴上设置最小值

1 个答案: