如何使用 VBA 更改 x 轴(即散点图)上的小数?

How to change decimal on x-axis (i.e. scatter graph), using VBA?

我正在搜索如何使用 VBA 更改小数点,我在下面找到了很好的答案。

然而,对于我的图表来说,它是一个散点图。所以我需要更改 x 轴上的小数点。上面的代码只改变了 y 轴。你能告诉我如何更改 x 轴上的 deciaml 吗?

提前致谢。

Dim obj     As Object
For Each obj In ActiveSheet.ChartObjects
   With obj.Chart.Axes(xlValue)
      .TickLabels.NumberFormat = "0.00"
   End With
Next obj

End Sub

我找到了答案,感谢@Ahmed AU

代码如下。感谢您的评论。

Sub xydecimal()

  Dim obj     As Object
For Each obj In ActiveSheet.ChartObjects
   With obj.Chart.Axes(xlValue)
   .TickLabels.NumberFormat = "0.00"
      End With
   With obj.Chart.Axes(xlCategory)
    .TickLabels.NumberFormat = "0.00"            
   End With
Next obj

End Sub