CorelDRAW——VBA实例篇一个简单的VBA插件

函数代码： （ALT+F11快速进入宏编辑）

Public Sub Demo1()
Rem|"视图-此处为第一种注释方法"
' Load UserForm1 加载窗口UserForm1-此处为第二种注释方法
 Load UserForm1
   If ActiveWindow.ActiveView.Type = cdrEnhancedView Then
      UserForm1.Text = "Enhanced"
   ElseIf ActiveWindow.ActiveView.Type = cdrNormalView Then
      UserForm1.Text = "Normal"
   ElseIf ActiveWindow.ActiveView.Type = cdrWireframeView Then
      UserForm1.Text = "Wireframe"
   ElseIf ActiveWindow.ActiveView.Type = cdrSimpleWireframeView Then
      UserForm1.Text = "Simple Wireframe"
   ElseIf ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints Then
      UserForm1.Text = "Enhanced WithOverprints"
   Else
      UserForm1.Text = "Draft"
'此处结束If语句判断
   End If
'显示(