添加用户窗体

首先在我们的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"这个是我所希望它展现的时间的格式,因为文件名里面不能出现某些字符,所以在设置格式的时候要注意

CorelDRAWX4的VBA插件开发(十一)弹窗界面和一键导出图片相关推荐

CorelDRAWX4的VBA插件开发(四) 用一个例子了解CORELDRAW-X4的四个基本对象
CorelDRAWX4的VBA插件开发(四) 用一个例子了解CORELDRAW-X4的四个基本对象 1.打开第一章的界面如下图: 2.把之前的代码稍作修改 Sub 第一个插件()Dim zongShu ...
CorelDRAWX4的VBA插件开发(三十一)使用C++制作动态连接库DLL辅助VBA构键强大功能-(5)在VBA中动态调用DLL文件
我们先来看一下动态调用的截图先上代码 '静态调用 Public Declare Function wodedll Lib "E:\VS-DLL\conglingkaishi\Debug\C ...
CorelDRAWX4的VBA插件开发(四十六)VBA插入启动事件让CDR启动时检测并自动添加工具栏和按钮
先上结果图,这个工具栏和按钮都是主程序自动生成的在程序的运行当中,如果我们希望程序能够自己创建工具栏和按钮,可以在CDR启动事件中设置一个检测功能 Private Sub GlobalMacroSt ...
CorelDRAWX4的VBA插件开发(二十三)INI初始化文件的读写和路径的保存
我们在上一节当中写了一个选择路径的功能, 所以我们希望这个路径在每一次打开的时候都会重新显示出上次选择的, 这就需要借用到外部文件来储存了, 要把这个内容写在硬盘上, 这种文件一般就是所谓的后缀为.i ...
CorelDRAWX4的VBA插件开发(二十七)使用C++制作动态连接库DLL辅助VBA构键强大功能-(1)前言和准备工作
我们在使用VBA的时候会很多的局限性,包括调用库和递归函数,对指针结构体和类都不友好,对时间复杂度和空间复杂度都优化得不够,换言之VB就不是从性能出发的语言,所以难免力不从心所以这里用C++为VBA ...
CorelDRAWX4的VBA插件开发(三十四)调用C++实现一键智能群组(第3节)主调函数以及三个被调函数
这一节就进入到了群组的实质性的内容,先把群组Qunzu()函数展示一下先展示主调函数Qunzu(),函数里面还有四个被调函数等会儿再说 BOOL Qunzu() {//undo开这个是一键多步撤销 ...
CorelDRAWX4的VBA插件开发(二十四)复合选框组件与联合命名面板
我们在处理文档的时候碰上的最多的问题就是与字符串相当的问题,这里再拿出来单把各种使用命名的小组件讲一下,我们先上效果图: 我们可以在上图看到最终结果,可以让一行文件名跟随各种组件进行更改,下下面我们先 ...
CorelDRAWX4的VBA插件开发(十七)一键新建折页参考线
在做印刷品的折页的时候,我们往往需要用到参考线来进行制作,这里就放上一组一键新建带出血的可选几折页的参考线功能前面是为了方便大家了解程序所以共用一个按钮,到了这里,我们经常要用到面板,按钮有点不够用 ...
CorelDRAWX4的VBA插件开发(十)多文件编程
很多时候有若干个按钮,但是里面有相同的功能,比如上一节中所中用到的修改当前文档的度量单位为毫米这一功能,每一个功能都需要用到这个功能的时候,我们可以把它单独拉出来,放在另一个文件里面,用的时候只需要调 ...
CorelDRAWX4的VBA插件开发(二十五)多类目选择实现复合框内容置换
有时候我们的复合框内的内容是有更多的需求,但是我们又不想另开一个窗口,怎么办呢,我们直接使用复合框内容替换就行啦先上效果图: 先在面第板上拉出一个框架, 再在里面添加上三个选项按钮, 添加好之后这三 ...

CorelDRAWX4的VBA插件开发(十一)弹窗界面和一键导出图片

添加用户窗体

CorelDRAWX4的VBA插件开发(十一)弹窗界面和一键导出图片相关推荐

最新文章

热门文章