Excel 次轴的标题不会通过vba显示在图表上

我是VBA新手，我正在制作一个图表，需要有两个y轴并共享同一个x轴。我不太清楚xlvalue和xlcategory的整个概念以及如何使用它们，我在网上使用了一些示例，但我无法使其起作用。我已将代码粘贴到下面。提前谢谢

With Totalchart.Axes(xlCategory)
    .HasTitle = True
    .HasTitle = True
    .HasMajorGridlines = True
    .HasMinorGridlines = True
    With .AxisTitle
        .Caption = "Time (min)"
        .Font.Name = "bookman"
        .Font.Size = 10
    End With
End With

With Totalchart.Axes(xlValue)
    '.CategoryType = xlAutomatic
    .HasTitle = True
    .HasTitle = True
    .HasMajorGridlines = True
    .HasMinorGridlines = True
    .MinimumScale = 0
    With .AxisTitle
        .Caption = "caption1"
        .Font.Name = "bookman"
        .Font.Size = 10
    End With
End With

With Totalchart.Axes(xlValue, xlSecondary)
    '.CategoryType = xlAutomatic
    .HasTitle = True
    .HasTitle = True
    .MinimumScale = 0
    With .AxisTitle
        .Caption = "Caption2"
        .Font.Name = "bookman"
        .Font.Size = 10
    End With
End With

---

.AxisTitle.Text

和

.AxisTitle.Caption

略有不同。看到这个了吗

在Excel 2007中，将

.AxisTitle.Text

设置为轴标题，如下所示：

With Totalchart.Axes(xlValue, xlSecondary)
    .HasTitle = True
    .MinimumScale = 0
    With .AxisTitle
        .Text = "Axis Title"
        .Font.Name = "bookman"
        .Font.Size = 10
    End With
End With

---

确保在此代码之前已启用次轴。这取决于您的系列收集

With Totalchart
  .SeriesCollection(2).AxisGroup = xlSecondary
  .HasAxis(xlValue, xlSecondary) = True
  .Axes(xlCategory, xlSecondary).CategoryType = xlAutomatic
End With

---

---

另外，尝试手动录制自己的宏，创建次轴并研究代码。可能有助于命名。

一般来说，

xlValue

是y轴，

xlCategory

是x轴，我正在使用Excel 2007。您编写的代码（针对最后一个块）给了我以下错误：对象“”的方法“”setElement“”失败我获取对象“”的方法“”axes“”“”失败“”，因为“”与Totalchart.axes（xlValue，xlSecondary）“”行有关更新，请确保您已首先启用次轴。