View Single Post
  #1   Report Post  
Dan Neely
 
Posts: n/a
Default Enabling sub menu items via vba

I'm using an activeX container to embed an excel document into my app. It
has several menu items I need to use disabled though. Since I don't want to
try and figure out how the ~400k of c++ source works to fix the problem I'm
trying to do it in vba. The problem is with the change tracking menu item
group. I can enable the main item on the tools menu, but not the subitems
that popup when it's selected. I can't figure out how to access the subitems
to enable them. The code below includes how I've enabled the track changes
item as well as 3 unsucessful attempts to enable the Highlight CHanges
subitem.

Sub EnableTracking()
'This works but doesn't affect it's children
Application.CommandBars("Tools").Controls("Track Changes").Enabled = True
'this generates an runtime error
Application.CommandBars("Tools").Controls("Highlig ht
Changes...").Enabled = True
'As does this.
Application.CommandBars("Track Changes").Controls("Highlight
Changes...").Enabled = True
'This doesn't generate an error but doesn't work either.
Application.CommandBars("Tools").Controls("Track
Changes").Controls("Highlight Changes...").Enabled = True
End Sub

activeX container location
http://support.microsoft.com/default...b;en-us;311765