选择对象后打开关联的 CommandBar

显示因为它适用于Application对象。

此示例放大所有命令栏按钮并启用工具提示。

With Application.CommandBars
.LargeButtons = True
.DisplayTooltips = True
End With

显示因为它适用于Presentation对象。

此示例显示格式化命令栏，合并的命令栏设置在应用程序窗口的顶部。

With ActivePresentation.CommandBars("Formatting")
.Visible = True
.Position = msoBarTop
End With

 

我想创建一个宏，它允许在选择对象后打开关联的 CommandBar。

我写了以下内容，有时有效，但并非每次都有效-第一次无效。我不明白为什么。我必须手动右键单击并选择“高度和位置”选项才能第一次运行它，然后一切正常 - 显示格式窗格。

你有什么线索可以避免右键点击部分吗？

https://www.microsoft.com/en-us/download/details.aspx?id=50745
为了触发内置命令，可以使用idMSO命令的“名称”。可以在此处下载这些命令的完整列表。

在列表中搜索Format会出现 idMSO ObjectFormatDialog。使用以下行在我的系统上进行测试会显示Format Shape任务窗格：

Application.CommandBars.ExecuteMso("ObjectFormatDialog")
“Mso”方法是唯一CommandBars使用的东西，这些天......

https://stackoverflow.com/questions/58417126/powerpoint-vba-run-application-commandbars/58419900#58419900

12 多年前，随着 Office 2007 的推出，命令栏已被弃用。有时需要运行 CommandBarButton.Execute 来运行不在对象模型中的命令。除此之外，您应该研究功能区修改以显示自定义命令。

https://stackoverflow.com/questions/58417126/powerpoint-vba-run-application-commandbars/58417359#58417359
Sub Bars ()
On Error GoTo Out
Dim cmd As CommandBar
For Each cmd In Application.CommandBars
cmd.Enabled = True
Next
If Application.CommandBars("Format Object").Visible = True Then
Application.CommandBars("Format Object").Visible = False
Else
Application.CommandBars("Format Object").Visible = True
End If
Out:
Exit Sub
End Sub