VBA生成一个CorelDraw工具栏

'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
posted @ 2009-10-28 17:28  与时俱进  阅读(1353)  评论(0编辑  收藏  举报
友情链接:同里老宅院民居客栈