为什么我不能使用VBA在Excel 2013中编辑命令行控件？

我正在试图通过VBA来为数据透视表做我自己的钻取操作。 该操作将从其他操作的数据透视表的上下文菜单中调用。 我想把我的button下数据透视表上下文菜单命令栏的附加操作控制。 重点是默认附加操作已经包含（没有操作定义）项目。 所以，我想删除这个（没有行动定义）后添加我的button，但没有任何工作。 我甚至无法更改（无操作定义）控件的任何属性，如Caption，Visible等。可能是什么原因，以及解决方法是什么？ 这里是我的代码到目前为止（例如，你可以把它放在Workbook_SheetBeforeRightClick，然后testing该工作簿中的任何数据透视表）：

Dim PCell As PivotCell Dim PComBar As CommandBar Dim PControl As CommandBarControl Dim DControl As CommandBarControl Dim BControl As CommandBarControl Dim IsFromPivotTable As Boolean IsFromPivotTable = False On Error GoTo NotFromPivot Set PCell = Target.PivotCell IsFromPivotTable = True NotFromPivot: On Error GoTo 0 If IsFromPivotTable Then Set PComBar = Application.CommandBars("PivotTable Context Menu") Set PControl = PComBar.Controls("Additional Actions") On Error Resume Next With PControl Call .Controls("My Drillthrough Action").Delete .Enabled = True End With On Error GoTo 0 Set DControl = PControl.Controls.Add(Type:=msoControlButton, Temporary:=True, Before:=1) With DControl .Style = msoButtonIconAndCaption .Caption = "My Drillthrough Action" .FaceId = 786 End With On Error Resume Next Set BControl = PControl.Controls("(No Actions Defined)") With BControl 'This does not work and throws error if do not suppress with On Error .Enabled = True .Visible = False .Caption = "Hello there" End With On Error GoTo 0 End If 

所以，最后一节BControl … End With完全不起作用，并引发错误“自动化错误”。 我可以成功编辑其他操作本身，如启用它，但我想摆脱（无操作定义）控制，或用我自己的replace。 请注意，这个Call .Controls（“（No Actions Defined）”）。Delete也不起作用。 我怎样才能做到这一点？ 我试图谷歌的问题，但没有运气…

Answer 1

我怀疑你不能添加到该菜单。 但是，您可以将其添加到上下文菜单本身：

 Sub test() Dim PCell As PivotCell Dim PComBar As CommandBar Dim DControl As CommandBarControl Dim target As Excel.Range Set target = ActiveCell On Error Resume Next Set PCell = ActiveCell.PivotCell On Error GoTo 0 If Not PCell Is Nothing Then Set PComBar = Application.CommandBars("PivotTable Context Menu") Set DControl = PComBar.Controls.Add(Type:=msoControlButton, Temporary:=True, Before:=1) With DControl .Style = msoButtonIconAndCaption .Caption = "My Drillthrough Action" .FaceId = 786 End With End If End Sub