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

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

这是我的代码。

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("Chart 1")
• 你也可以索引它，所以如果你只有一个图表，你可以使用ChartObjects(1)