公告

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

coreldraw-vba-document-properties

目的

本文介绍CorelDRAW创建文档后对文档进行属性设置。

在创建文档后，你可以使用文档类的相应属性指定文档的引用点、度量单位和绘图比例。
Document.ReferencePoint属性指定一个文档的参考点。在定位文档中的对象时引用此点。
Document.Unit属性指定文档的度量单位。这个单位用于定位和放大该文档中的对象。
Document.WorldScale属性指定一个文档的绘图比例，如果不指定，则默认值是1。绘图比例尺可以使绘图中的距离与现实世界的距离成比例；例如，您可以指定绘图中的1英寸对应于物理世界中的1米。

具体属性值参考以下代码：

' 创建文档
Dim doc As Document
Set doc = CreateDocument

' 设置文档参考点
doc.ReferencePoint = cdrBottomLeft ' 底部靠左对齐
doc.ReferencePoint = cdrBottomMiddle ' 底部居中对齐
doc.ReferencePoint = cdrBottomRight ' 底部靠右对齐
doc.ReferencePoint = cdrCenter ' 中心对齐
doc.ReferencePoint = cdrMiddleLeft ' 中心靠左对齐 
doc.ReferencePoint = cdrMiddleRight ' 中心靠右对齐
doc.ReferencePoint = cdrTopLeft ' 顶部靠左对齐
doc.ReferencePoint = cdrTopMiddle ' 顶部居中对齐
doc.ReferencePoint = cdrTopRight ' 顶部靠右对齐

' 设置文档单位
doc.Unit = cdrAgate
doc.Unit = cdrCentimeter ' 厘米
doc.Unit = cdrCicero
doc.Unit = cdrDidots
doc.Unit = cdrFoot ' 英尺
doc.Unit = cdrInch ' 英寸
doc.Unit = cdrKilometer ' 千米(公里)
doc.Unit = cdrMeter ' 米
doc.Unit = cdrMile ' 英里
doc.Unit = cdrMillimeter ' 毫米
doc.Unit = cdrPica ' 派卡
doc.Unit = cdrPixel ' 像素
doc.Unit = cdrPoint ' 点
doc.Unit = cdrTenthMicron
doc.Unit = cdrUnitH ' 单位高度
doc.Unit = cdrUnitQ
doc.Unit = cdrYard ' 码

这些属性会影响文档中的所有元素，例如您绘制的对象。为了获得最佳效果，请选择最适合您的宏解决方案的设置。

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