时间戳

首页 > 解决方案 > 如何使用 VBA 更改 x 轴上的小数（即散点图）？

excel - 如何使用 VBA 更改 x 轴上的小数（即散点图）？

问题描述

我正在寻找如何使用 VBA 更改小数，我在下面找到了很好的答案。

https://stackoverflow.com/a/32462504/9653254

但是，对于我的图表，它是一个散点图。所以我需要在 x 轴上更改小数点。上面的代码只改变y轴。你能告诉我如何在 x 轴上更改十进制吗？

先感谢您。

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

标签： excelvbadecimal

解决方案

感谢@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

推荐阅读