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

时间:2016-01-30 03:09:22

标签: excel vba excel-vba

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

这是我的代码。

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

1 个答案:

答案 0 :(得分: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)