公告
本专栏的相关的文章已不在简书同步更新，请直接访问 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/
