公告

---

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

coreldraw-vba-zoom-and-pan

目的

本文介绍CorelDRAW VBA对文档进行缩放、平移的相关操作代码。

缩放

要缩放一个活动视图对象，需要通过设置 ActiveView.Zoom 属性来完成，该属性的值是一个双精度类型的百分比值。
例如，下面的VBA代码将缩放因子设置为200%：

ActiveWindow.ActiveView.Zoom = 200.0

你也可以通过 ActiveView 类的以下方法来缩放视图：

• SetActualSize：实际大小
• ToFitAllObjects：适应所有对象
• ToFitArea：适应区域
• ToFitPage：适应整个页面
• ToFitPageHeight：适应页面高度
• ToFitPageWidth：适应页面宽度
• ToFitSelection：适应当前选中的对象
• ToFitShape：适应某个形状（对象）
• ToFitShapeRange：适应形状排列

平移

要平移一个活动视图对象，你可以通过修改一个视图的X原点 Activeview.originx 和Y原点 Activeview.originy 来实现。
例如：下面的VBA代码将文档向左倾斜5英寸，向上移动3英寸。

Dim av As ActiveView
ActiveDocument.Unit = cdrInch
Set av = ActiveWindow.ActiveView
av.OriginX = av.OriginX - 5
av.OriginY = av.OriginY + 3

相对地，你也可以使用 ActiveView.SetViewPoint 方法来实现视图平移。

Dim av As ActiveView
ActiveDocument.Unit = cdrInch
Set av = ActiveWindow.ActiveView
av.SetViewPoint av.OriginX - 5, av.OriginY + 3

小结

缩放文档非常实用，在批量创建图形或者要在创建时实时查看效果的时候经常用到，最常用的方法可能是 ToFitAllObjects 和 ToFitPage。前者是将视图缩放到能够显示所有对象的级别，后者是将视图缩放到整个页面大小的级别。

---

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