更改图表轴组将删除格式

Question

我正在创建一个工作簿，用作创建图形的模板。使用的单位是'ppm'和'ppb'，并且将在两个垂直轴上。

以下代码用于在用户设置用于数据集的轴时运行。它可以工作，但所有格式都从辅助轴和轴标题中删除。有没有办法可以保留这种格式？

Sub AxisChange()
Dim sp As Worksheet
Set sp = Worksheets("Setup Page")
Dim sht As Worksheet
Set sht = Worksheets("P1")
Dim cht As ChartObject

If sp.Cells(22, 4).Value = ("ppm") Then
     For Each cht In sht.ChartObjects
     cht.Chart.SeriesCollection(1).AxisGroup = 2
     Next cht
Else
     For Each cht In sht.ChartObjects
     cht.Chart.SeriesCollection(1).AxisGroup = 1
     Next cht
End If

End Sub