Question

当前，我正在将项目的日期作为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

在此先感谢您的帮助！

Answer 1

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

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

感谢大家的帮助和提示！

设置X轴的最小值

1 个答案: