添加用户窗体
-
首先在我们的gms上右击插入用户窗体
-
然后在拉出一个按钮
-
更按钮的标题
-
双击按钮进入按钮的点击功能编辑
-
打开A文件修改代码为
Sub 第一个插件()
UserForm1.Show
End Sub
- 修改 CommandButton1_Click的代码
Private Sub CommandButton1_Click()
Set expflt = ActiveDocument.ExportBitmap("F:\Users\Administrator\Desktop\" & CorelDRAW.CorelScriptTools.FormatTime(VBA.DateTime.Now, "HH-mm-ss") & ".jpg", cdrJPEG, cdrSelection, cdrCMYKColorImage, 0, 0, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
expflt.Finish
End Sub
-
测试
中间F:\Users\Administrator\Desktop\
这一串只是我桌面的路径而已,大家可以根据自己桌面的路径稍作修改即可,然后测试一下就会发现我们选中的对象已经导出到桌面啦 -
代码释义
Private
这个是双击按钮的时候自动添加的,是私有的意思,表示此功能只能在当前窗体内使用,不能被外部使用
Set
是给一个量赋值,一般来说非VB常用的变量类型就要用到这个set
expflt
这个是可以随意命名的,里面是一个导出筛选器,因为他的类型不是VB常用类型,所以赋值的时候用到了set
ExportBitmap
当前文档的导出功能,后面的括号里面带了16个参数,可以看到这个参数是非常之多,这个参数是在使用的时候就要写进去的.这里分别讲一下16个参数是什么
- 文件名,要从盘符开始写起
- 导出类型, 是CDR确定好的枚举类里面的,我们是导出JPG所以在里面选择cdrJPEG
- 导出的范围.可以看到枚举类里面有三种,第一种默认的是当前页面,我们选cdrSelection,就是当前选择了的形状
- 导出的颜色模式,我们先CMYK
- 导出的宽度,可以输入0让它自动
- 导出的高度,可以输入0让它自动
- X轴横向分辨率
- Y轴纵向分辨率
- 抗锯齿模式
- 抖动
- 是否有透明度
- 颜色配置文件
- 多图层
- 图片压缩率
- 导出选项
- 指定导出区域,默认为nothing
Finish
导出筛选器里面的一个导出功能,这一句才是导出,前面的所有只是设置筛选器而已
- 其实下面这些可以不用看,我只是为了让各一个图片不重名所以在导出的命名后面加了一个精确到秒的时间而已
CorelScriptTools
这里再讲一下我这里用了一个CorelScriptTools这个类,这是自带的一个工具箱
FormatTime
这个就是工具箱里面的一个功能:把时间格式化为我们想要的样式
VBA.DateTime.Now
VBA是VBA的总类,datetime是时间类,now是当前时间,所以这个就是返回的当前时间
"HH-mm-ss"
这个是我所希望它展现的时间的格式,因为文件名里面不能出现某些字符,所以在设置格式的时候要注意