如何用VBA一次更改多个图形中X-Y轴的相同标题和格式？

Sub ChangeAxisTitleAndFormat()
    Dim chtObj As ChartObject
    Dim chart As Chart
    Dim axis As Axis
    
    ' 获取所有图表对象
    For Each chtObj In ActiveSheet.ChartObjects
        Set chart = chtObj.Chart
        
        ' 更改X轴标题
        Set axis = chart.Axes(xlCategory)
        axis.HasTitle = True
        axis.AxisTitle.Text = "X轴标题"
        
        ' 更改Y轴标题
        Set axis = chart.Axes(xlValue)
        axis.HasTitle = True
        axis.AxisTitle.Text = "Y轴标题"
        
        ' 设置轴格式
        axis.TickLabels.NumberFormat = "0.00"
        axis.TickLabels.Font.Size = 10
        ' 其他格式设置...
    Next chtObj
End Sub