如何使用 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
我正在搜索如何使用 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