Excel 缺少图形格式窗格

Question

前段时间，我用宏打开了一个旧的 excel 文件。然后我失去了 excel 的许多功能，比如上下文菜单、枢轴 table 字段列表窗格等。我已经用 vba 代码解决了其中的许多问题，但我一直无法解决这个还没有：

我无法打开图形格式窗格（右键单击图表元素 "xxx" 并单击格式 "xxx" ... 时出现在右侧的窗格）。

我已经尝试了 excel 个选项，但没有找到解决方案。此外，在我之前的恢复上下文菜单的研究中，我找到了一个使用 vba 代码的解决方案。因此，我猜这会有类似的解决方案。问题是我找不到正确的 vba class 方法或函数来解决这个问题。

提前致谢。

Answer 1

这应该可以帮助您：来自 Expert Exchange 的 Michael Fowler 致谢这是 link

Sub ShowAllToolbars()
       'loop variable
       Dim i As Integer

       ' Loop through the total number of toolbars.
       For i = 1 To Application.Toolbars.Count

           ' Show each toolbar.
           Application.Toolbars(i).Visible = True
Application.CommandBars(140).Enabled=True
       ' End of loop.
       Next i

   End Sub

Answer 2

终于解决了

首先，我使用以下代码在 sheet 中列出了所有 CommandBars 的名称：

Dim i As Integer
Dim bar As CommandBar
i = 0

For Each bar In Application.CommandBars
  i = i + 1
  Sheets("Sheet1").Cells(i, 1) = bar.Name    
Next

这不是必须的，我只是想了解 CommandBars 的名称。

经过反复试验，我发现下面的代码可以完成这项工作：

Application.CommandBars("Format Object").Enabled = True

上一个答案的代码

Application.CommandBars(140).Enabled=True

可能会做同样的事情，但我做不到。

Excel 缺少图形格式窗格

Excel graph format pane missing

excel

vba

graph

pane