vba - 从图表中删除轴

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