缺少Excel图形格式窗格
缺少Excel图形格式窗格
提问于 2017-11-22 03:57:43
不久前，我用宏打开了一个旧的excel文件。然后，我失去了excel的许多功能，比如上下文菜单、枢轴表字段列表窗格等等。我已经用vba代码解决了其中许多功能，但我还无法解决这个问题：
我无法打开图形格式窗格(当您右键单击图表元素"xxx“并单击format "xxx”.时出现在右侧的窗格)。
我已经尝试过excel选项，但没有找到解决方案。另外，在我之前关于获取上下文菜单的研究中，我发现了一个使用vba代码的解决方案。因此，我想这将有一个类似的解决方案。问题是我找不到正确的vba类、方法或函数来解决这个问题。
提前谢谢。
回答 2
Stack Overflow用户
回答已采纳
发布于 2018-01-25 02:42:18
我终于解决了。
首先，我使用下面的代码在工作表中列出了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可能会做同样的事，但我不能让它起作用。
Stack Overflow用户
发布于 2017-11-22 04:17:18
这应该对你有帮助:来自专家交易所的迈克尔·福勒( Michael )的学分这是链接
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/47434143
复制相关文章
相似问题
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
