（转载于Zebe ）CorelDRAW-VBA - Document文档属性设置

--------------------- 
作者：Zebe 
来源：CSDN 
转载原文链接：https://blog.csdn.net/zebe1989/article/details/79029015 

目的
本文介绍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 ' 码