明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1807|回复: 7

[求助]如何编辑菜单命令,实现与VBA过程的连接

[复制链接]
发表于 2003-12-22 18:20:00 | 显示全部楼层 |阅读模式
请教各位,如何用菜单命令执行VBA过程,是否需要学习专门的宏编辑,我门外汉,望指路!
发表于 2003-12-22 20:23:00 | 显示全部楼层
看看帮助了的VBA 或者到本网站看看VBA的教程
发表于 2003-12-22 21:42:00 | 显示全部楼层
-vbarun 宏名
 楼主| 发表于 2003-12-23 20:50:00 | 显示全部楼层

[分享]请求指点教程位置

那里有帮助教程?我找不到呀
 楼主| 发表于 2003-12-25 11:22:00 | 显示全部楼层
我编辑的菜单VBA程序如下,为何运行时会打开宏运行对话框,需人工点选过程,并点畸运行按钮,而没有直接运行test_exeice过程。

Set CurMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
'创建下拉菜单列
Set NewMenus = CurMenuGroup.Menus.Add("  批改作业")
MacroStr = Chr(3) + Chr(3) + "vbarun E:\VBA\FirTest.dvb!模块1.test_exeice" + Chr(32)
Set OpenMenuItem = NewMenus.AddMenuItem(NewMenus.Count + 1, "打开一个成绩记录单", MacroStr)
'插入到“批改作业“下拉菜单列中"
CurMenuGroup.Menus.InsertMenuInMenuBar "  批改作业", ThisDrawing.Application.MenuBar.Count + 1
发表于 2003-12-25 12:06:00 | 显示全部楼层
这一句
MacroStr = Chr(3) + Chr(3) + "vbarun E:\VBA\FirTest.dvb!模块1.test_exeice" + Chr(32)
改成
MacroStr = Chr(3) + Chr(3) + "-vbarun E:\VBA\FirTest.dvb!模块1.test_exeice" + Chr(32)
发表于 2003-12-25 16:19:00 | 显示全部楼层
反斜杠 (\) 会引起菜单宏暂停以等待用户输入,所以不能在菜单宏中为其他任何目的使用反斜杠。在指定文件目录路径时,使用正斜杠 (/) 作为路径分隔符:
例如  "-vbarun E:/VBA/FirTest.dvb!模块1.test_exeice"
 楼主| 发表于 2003-12-25 17:26:00 | 显示全部楼层
感谢各位高手,可惜没有任何改变.

哎,为什么我做事总是不顺呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-28 10:57 , Processed in 0.186160 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表