PowerPoint VBA：如何将两个坐标轴宏合并为切换开关宏？

直接用以下宏即可实现一键切换当前幻灯片所有折线图的数值轴（xlValue）显示状态，无需分开两个宏：

Sub ToggleLineChartValueAxis()
    Dim sld As Slide
    Dim shp As Shape
    Dim cht As Chart
    
    Set sld = Application.ActiveWindow.View.Slide
    
    ' 遍历当前幻灯片上的所有形状
    For Each shp In sld.Shapes
        ' 判断是否为图表对象
        If shp.HasChart Then
            Set cht = shp.Chart
            ' 直接切换数值轴的显示状态：当前状态取反
            cht.HasAxis(xlValue) = Not cht.HasAxis(xlValue)
        End If
    Next shp
End Sub

关键修改说明： #

• 去掉了原代码中多余的SeriesCollection循环：HasAxis(xlValue)是图表本身的属性，和数据系列无关，原代码里循环系列重复设置轴状态完全没必要，反而可能导致逻辑混乱
• 用Not运算符直接实现状态切换：不用写复杂的If-Else判断，一行代码就完成"显示变隐藏，隐藏变显示"的逻辑
• 变量名简化为cht，更符合VBA的常用命名习惯，可读性更强

原代码的问题核心就是没必要遍历数据系列，只要针对图表本身操作就行，这也是你之前用If-Else没成功的主要原因。

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