CorelDRAWX4的VBA插件开发(五) 一键转曲

CorelDRAWX4的VBA插件开发(五)一键转曲

1.先展示一下转曲代码

Sub 第一个插件()
    CorelDRAW.ActivePage.FindShapes(Type:=cdrTextShape).ConvertToCurves
End Sub

把之前的代码修改成上面这样,当然我直接修改,是为了方便而已,所以没有另外新增一个按钮来实现这个功能,如果你想保留这个功能,可以在下面另起一行把命名改一下就行了

以上的代码一个当页内容全部转曲的功能就实现了.
可以看到我这一次没有写ActiveDocument, 是直接写的ActivePage,因为这样写也是可以的,直接定位到当前活动的页面
FindShapes 是一个查找形状的功能,后面的括号是调用的参数
Type:=cdrTextShape 表示查找的类型为cdrTextShape
cdrTextShape 是内部约定的类型,代表文字类型的形状

在这里,一个问题就来了,我怎么查看还有一些其它的形状类型呢?

这时我们可以直接按F2唤出对象浏览器.输入Type可以看到含Type的还有很多种类型,我们只要找到cdrShapeType就可以了,这个就是形状类型;然后下面可以看到有大约二十七八种的类型,有曲线,有群组对象,有位图,等等…如果还想深入的了解可以去PDF手册里面查看详情.

ConvertToCurves 是转换成曲线

这样一个当页内容全部转曲的功能就实现了,但问题是一个文件有可能有很多个页面,比如画册之类的,如果要转曲所有页面只要在外面套一个循环就行.