VBA实例6 CorelDraw 批量生成设备位号、连续编号

问题引入

制作可燃气体检测报警系统气体探头（即气体检测报警仪）位号标签

思路

1. 创建艺术文本对象，填入字符。连续编号用遍历循环即可，Format函数加前导零。亦可通过读取Office对象（Excel）中的内容提取需要填入的位号，时间有限，本文不做探讨。后续在《VBA实例4 Excel隐患排查治理台账》详细讲解。
2. 根据组合所在行列调整水平位置和垂直位置。
3. 同样的思路也可用于反应釜位号、仪表位号等批量创建。

效果

懒得插视频了，视频审核万把年……

参数

主要用到Layer.CreateArtisticText方法

Function CreateArtisticText(Left As Double, Bottom As Double, Text As String, 
	[LanguageID As cdrTextLanguage = cdrLanguageNone], 
	[CharSet As cdrTextCharSet = cdrCharSetMixed], [Font As String], 
	[Size As Single], 
	[Bold As cdrTriState = cdrUndefined], 
	[Italic As cdrTriState = cdrUndefined], 
	[Underline As cdrFontLine = cdrMixedFontLine], 
	[Alignment As cdrAlignment = cdrMixedAlignment]) As Shape
VGCore.Layer 的成员
Creates artistic text on a layer

</

参数	描述	默认值
Left	指定左边水平位置	默认值为0
Bottom	指定底部垂直位置	默认值为0
Text	指定艺术文本的内容	需填入的文本内容
LanguageID	指定的语言	可选，默认值为cdrLanguageNone(0)
CharSet	指定字符集。	可选，默认值为cdrCharSetMixed(-1)
Font	指定字体	可选，CDR默认字体
Size	指定字体大小	可选，默认值为0
Bold	指定是否应用粗体	可选，默认值为cdrUndefined(-2)
Italic	指定是否应用斜体	可选，默认值为cdrUndefined(-2)
Underline	指定要应用的下划线	可选，默认值为cdrMixedFontLine(7)
Alignment	指定对齐	可选，默认值为cdrMixedAlignment(6)