Office 2007中VBA开发遇到的有关问题
发布时间:2011-06-30 07:27:16 文章来源:www.iduyao.cn 采编人员:星星草
Office 2007中VBA开发遇到的问题
这是个右键菜单的函数。运行到oPopup.ShowPopup时会弹出如下错误。请问这是怎么回事?谢谢!
Public Sub ShowRightMenue()
Dim oPopup As CommandBar
Dim oSubMenu As CommandBarPopup
Dim oMenuItem As CommandBarControl
Cancel = True
On Error Resume Next
CommandBars("myRightMenu").Delete
On Error GoTo 0
Set oPopup = CommandBars.Add("myRightMenu", msoBarPopup)
Set oSubMenu = oPopup.Controls.Add(msoControlPopup)
oSubMenu.Caption = "一级子菜单1"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项1-1"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项1-2"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项1-3"
Set oSubMenu = oPopup.Controls.Add(msoControlPopup)
oSubMenu.Caption = "一级子菜单2"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项2-1"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项2-2"
Set oMenuItem = oSubMenu.Controls.Add(msoControlButton)
oMenuItem.Caption = "菜单项2-3"
oPopup.ShowPopup
oPopup.Delete
End Sub
------解决方案--------------------
把
oPopup.ShowPopup
改成
Application.CommandBars("myRightMenu").ShowPopup
看看
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
erlang:创建表
mnesia:create_table(student, [{attributes,{name,number,sex}}]).
怎么老是提示:
{aborted,{bad_type,student,{...
-
100分求助,matlab一维矩阵变成二维矩阵,怎么感觉我写的代码这么绕呢
希望把Input矩阵(一维)变成3行4列的二维矩阵Output;我写了下面...
-
为什么没有易语言版块呢?
为什么没有易语言版块呢?
------解决方案--------------------
易语言,还不常用,交流也不比,所以无....
-
批处理的一个问题
想用批处理更改文件属性
@echo off
arrtib -R /S E:\home\*.*
exit
这样写是错误的吗?
为什么没起作用啊
--...
-
几个关于大型机的问题(新手求救啊~)
1、z/OS 和UNIX系统的相同点和相异点有哪些啊?主目录和用户目录的区别是什么啊?
2、用JCL创建一...
-
急求!如何用正则截取一对标签中的字符当中的日期
<p class="source">
<!--[if !IE]>收藏功能<!...
-
批处理代码放在U盘里,如何复制整个硬盘的时间段文件? qivsran老师的答案,谢谢!
@echo off
md 新文件
setlocal enabledelayedexpa...
-
复制文件不带目录文件夹如何修改代码?同名文件仅复制最新的
@echo off
md %computername%资料 2>nul
Cd /d %computername%资料
F...
-
求C里面 全角半角转换函数
求C里面 全角半角转换函数
------解决方案--------------------
我在别处看了,希望对你有帮助。
...
-
求助:关于qtp10 无法识别 maven自动构建flex3.6 的问题
近日遇到maven自动构建flex3.6的问题。希望大家提出宝贵意见。
问...