公告

---

本专栏的相关的文章已不在简书同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

coreldraw-vba-change-active-view-type

目的

这篇教程将教会你使用 CorelDRAW VBA代码使用 ActiveView 类更改当前活动文档的视图类型。

ActiveView介绍

ActiveView类表示活动视图的含义，简单来说就是：用户当前能够看到的所有文档区域。
ActiveView类通过它的属性和方法定义了当前可见对象的特征，描述了对象外观和操作行为。CorelDRAW中的视图可以根据用户的意愿和目的来设定。

在CorelDRAW X4版本中，一共有以下6种不同质量的视图类型：

• 草稿：该类型显示单一颜色填充和低分辨率的位图图像。透镜和喷泉填充也显示颜色，用单一图案来代表每个填充，棋盘格图案代表两种颜色的填充，双箭头图案代表全色填充，阴影线图案代表位图填充，PS图案代表PostScript填充。
• 增强：该类型显示出两倍的象素点，以达到最佳的显示质量。
• 使用叠印增强：该类型显示出两倍的象素点，在达到最佳的显示质量的同时，突出显示叠印的对象。
• 正常视图：该类型显示所有的填充、所有的对象和高分辨率位图图像。显示质量的设置不会对绘图大小产生影响，只影响绘图在屏幕上的显示。
• 线框：该类型只显示所有对象包括单色位图的轮廓。
• 简单线框：只显示轮廓，其他任何的东西都不显示。

代码演示

以下代码用来更改当前活动视图的显示质量：

' 获取当前视图
Dim view As ActiveView
Set view = Application.ActiveWindow.ActiveView

' 更改视图质量类型
view.Type = cdrDraftView '草稿
'view.Type = cdrEnhancedView '增强
'view.Type = cdrEnhancedViewWithOverprints ' 使用叠印增强
'view.Type = cdrNormalView ' 正常视图
'view.Type = cdrWireframeView ' 线框
'view.Type = cdrSimpleWireframeView ' 简单线框

---

原创声明：本文首发于个人CorelDRAW VBA博客，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-change-active-view-type