目的
本文介绍CorelDRAW VBA对文档进行缩放、平移的相关操作代码。
缩放
要缩放一个活动视图对象,需要通过设置 ActiveView.Zoom
属性来完成,该属性的值是一个双精度类型的百分比值。
例如,下面的VBA代码将缩放因子设置为200%:
ActiveWindow.ActiveView.Zoom = 200.0
你也可以通过 ActiveView
类的以下方法来缩放视图:
- SetActualSize:实际大小
- ToFitAllObjects:适应所有对象
- ToFitArea:适应区域
- ToFitPage:适应整个页面
- ToFitPageHeight:适应页面高度
- ToFitPageWidth:适应页面宽度
- ToFitSelection:适应当前选中的对象
- ToFitShape:适应某个形状(对象)
- ToFitShapeRange:适应形状排列