设置X轴的最小值

时间:2019-03-28 16:44:40

标签: excel vba charts axis

当前,我正在将项目的日期作为excel序列号手动输入到图表的“轴”选项中(边界=>最小值)。

我试图在工作表中放置代码,以使其在更改开始日期时自动更新此值。

我已经花了数小时在互联网上尝试查找将要运行的代码,并将一些代码拼凑在一起以完成工作,但是我一直遇到运行错误

目前我已经有了代码

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cht As Chart
Dim xmin As Integer

    Set xmin = Sheets("Planning").Range("O37").Value

    Set cht = Worksheets("Planning").ChartObjects("Chart 2").Chart

    cht.Axes(xlCategory).MinimumScale = xmin

End Sub

在此先感谢您的帮助!

1 个答案:

答案 0 :(得分:0)

好的-所以我设法按需运行以下代码

Private Sub Worksheet_Change(ByVal Target As Range)

Dim objCht As ChartObject
   For Each objCht In ActiveSheet.ChartObjects
      With objCht.Chart
         ' Value (Y) Axis
         With .Axes(xlValue)
            .MinimumScale = Sheets("Planning").Range("E3").Value
         End With
      End With
   Next objCht

End Sub

感谢大家的帮助和提示!