VBA 生成一个CorelDRAW工具栏 的代码
作者:Admin 日期:2009-05-24
复制内容到剪贴板
程序代码
程序代码'VBA生成一个CorelDraw工具栏
Private Sub CommandButton2_Click()
On Error Resume Next
CommandBars("我的工具").Delete
CommandBars.Add("我的工具").Visible = True
FrameWork.CommandBars("我的工具").Controls.AddCustomButton "2cc24a3e-fe24-4708-9a74-9c75406eebcd", "converto.conver.ConverTo"
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
CommandBars("我的工具").Delete
CommandBars.Add("我的工具").Visible = True
FrameWork.CommandBars("我的工具").Controls.AddCustomButton "2cc24a3e-fe24-4708-9a74-9c75406eebcd", "converto.conver.ConverTo"
End Sub
上一篇: VB 函数收集
下一篇: 中文字号、英文字号(磅)和像素值的对应关系 
文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags: CorelDRAW VBA VisualBasic VB 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 8450
发表评论
