从图表中删除轴

Question

似乎有很多关于如何将轴添加到图表的信息，但是如果要从图表中删除/删除轴，则可用的信息不多。

所以我有一个100％的堆栈条形图。

我想删除/删除X轴（从左到右）。

我想象它会像......一样简单。

 Chart.HasAxis(xlCategory) = False 

但是我得到了“无法分配函数调用”

不确定哪个代码会关闭x轴？

有什么想法吗？

Answer 1

如果仍然无效，可能会发布更多代码 - 除非您之前已将Chart声明为变量并为其分配Chart（另一个问题可能是使用保留/半 - 变量名称的保留关键字），您提供的语句最多是伪语法。

你正在做什么应该工作，从根本上说，为ActivePresentation.Slides(1).Shapes(1).Chart.HasAxis(xlCategory) = _boolean_之类的东西分配一个布尔值肯定会有效。

例如，使用一张幻灯片创建演示文稿，删除所有形状/占位符，然后插入堆叠条100％图表。然后运行这个宏：

Sub Test()
Dim cht As Chart
Dim sld As Slide
Dim pres As Presentation

    Set pres = ActivePresentation
    Set sld = pres.Slides(1)
    Set cht = sld.Shapes(1).Chart

    If MsgBox("Should this chart have a visible category axis?", vbYesNo) = vbYes Then
        cht.HasAxis(xlCategory) = True
    Else:
        cht.HasAxis(xlCategory) = False
    End If
End Sub