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
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
