函数代码: (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
'显示(