如何使用VBA为Excel图表添加第三个Y轴

Excel 原生图表内置仅支持两个Y轴分组（主坐标轴 xlPrimary、次坐标轴 xlSecondary），没有提供第三个Y轴的原生配置接口，无法直接通过VBA调用内置属性生成官方原生的第三个Y轴。

如果需要实现视觉上的三Y轴展示效果，可以通过以下两种变通方案用VBA实现：

• 重叠多图表模拟
  操作逻辑：在同一个工作表位置重叠放置两张独立图表，下层为已经做好的双Y轴图表；上层图表仅保留第三个数据系列、对应的Y轴，将图表区、绘图区填充、X轴、网格线、图例等元素全部设置为透明，再通过VBA对齐两张图表的尺寸、位置、X轴刻度范围，就能呈现出三Y轴的视觉效果。
  核心VBA示例代码片段：

  ' 假设底层图表为ChartObjects(1)，新建上层模拟第三Y轴的图表
  Dim baseChart As Chart, overChart As Chart
  Set baseChart = ActiveSheet.ChartObjects(1).Chart
  ActiveSheet.ChartObjects(1).Duplicate
  Set overChart = ActiveSheet.ChartObjects(2).Chart
  ' 清空上层图表多余系列，仅保留需要第三Y轴的系列
  Do While overChart.SeriesCollection.Count > 1
      overChart.SeriesCollection(1).Delete
  Loop
  ' 设置上层图表透明
  overChart.ChartArea.Format.Fill.Visible = msoFalse
  overChart.PlotArea.Format.Fill.Visible = msoFalse
  overChart.Axes(xlCategory).Format.Line.Visible = msoFalse
  overChart.Axes(xlCategory).TickLabelPosition = xlTickLabelPositionNone
  ' 对齐尺寸位置
  With ActiveSheet.ChartObjects(2)
      .Top = baseChart.Parent.Top
      .Left = baseChart.Parent.Left
      .Width = baseChart.Parent.Width
      .Height = baseChart.Parent.Height
  End With
  ' 对齐X轴刻度
  overChart.Axes(xlCategory).MinimumScale = baseChart.Axes(xlCategory).MinimumScale
  overChart.Axes(xlCategory).MaximumScale = baseChart.Axes(xlCategory).MaximumScale
  

• 数据缩放+自定义标签模拟
  操作逻辑：将需要用第三Y轴展示的系列数据，按比例换算到现有主/次Y轴的显示范围内，添加到现有图表中；再通过VBA在图表侧边自动生成对应刻度的文本框，作为第三Y轴的刻度标签，按计算好的位置排列即可。

注意以上两种方案均为视觉模拟效果，并非Excel原生支持的第三Y轴，后续数据更新时需要同步执行对应的模拟更新逻辑。

内容的提问来源于stack exchange，提问作者Kuempsmichi