CorelVBA.bas 498 B

123456789101112131415161718
  1. Attribute VB_Name = "CORELVBA"
  2. Public Sub Start()
  3. Toolbar.Show 0
  4. ' CorelVBA.show 0
  5. ' MsgBox "请给我支持!" & vbNewLine & "您的支持,我才能有动力添加更多功能." & vbNewLine & "蘭雅CorelVBA中秋节版" & vbNewLine & "coreldrawvba插件交流群 8531411"
  6. ' Speak_Msg "感谢您使用 蘭雅VBA工具"
  7. End Sub
  8. Sub Start_Dimension()
  9. '// 尺寸标注增强版
  10. MakeSizePlus.Show 0
  11. End Sub
  12. Public Sub Init_StartButton()
  13. SaveSetting "LYVBA", "Settings", "StartButton", "0"
  14. MsgBox "Please Restart CorelDRAW!"
  15. End Sub