新手学习做的第一个插件，不喜勿喷，看图
我主要是做广告UV的，需要频繁的给对象设置尺寸，常用的尺寸就那么几种，所以就学着做了这么一款插件安装方法：（我用的CorelDRAW X7）
1、将gms插件复制到CorelDRAW的安装目录里的GMS文件夹里，例如：D:\CorelDRAW Graphics Suite X7\Draw\GMS
2、打开工具-选项-自定义-命令-右边选择宏-找到运行预设尺寸，将图标拖到工具栏
打开插件就是下面的样子：
解释一下作用：
[*]+5 -10 +40+60分别是将选中的对象的长和宽加5mm等功能，我主要拿来做出血
[*]第二、三排按钮是我经常用的一些尺寸，点击按钮就可以直接设置对应的尺寸了，例如300*200，选中的对象为竖版，则修改后尺寸为200*300高，横版的对象则自动对应为300*200高
[*]第四排好理解，详见动图
[*]左下角五组为自己填尺寸，点击应用即可
[*]右下角就是统一尺寸了，要点击读，再选择要修改的对象点统一尺寸
实际示例：
插件源码可以通过CorelDRAW的宏编辑器修改
GMS下载链接：https://www.123pan.com/s/9QUSVv-9Hr3A.html提取码：**** 本内容需购买 ****
之前的分享失效了，这是最新的链接，另外建议下载另外一个帖子的文件，是更新版
更新版地址：https://www.52cnp.com/thread-19744-1-1.html
本文插件地址：hhttps://www.123pan.com/s/9QUSVv-M883A.html提取码:**** 本内容需购买 ****
本帖最后由 landboy 于 2023-11-13 13:40 编辑
遥不可及灬 发表于 2023-11-13 13:31
感谢建议，我有空研究研究，其实我啥都不会，主要靠ChatGPT
你就让 GPT 帮我改成函数的代码
问题:CorelDRAW VBA 选中多个物件， 设置成统一大小， 比如100x100mm 我想输入 setSize 100, 100 调用，请写下这个 setSize函数
不过好像回答是错误的，不过函数定义的大概结构出来的，然后自己改改就可以了
第二、三排按钮可以自定义常用尺寸的话就再好不过了，非常实用的插件 多谢你的分享，很有幸是第一个下载它。 谢谢分享，这个插件好，社区高手如云，一定越来越兴旺。 楼主有心了！还提供了原码可以修改自己常用的尺寸，比较方便。 可以发一些宏的教程? 这才是插件该有的样子！{:4_328:} 多谢分享 很是羡慕会弄这些插件的高手 期待更新，目前这个也是有用的 修改尺寸的 子程序，可以写成函数setSize(w as double, h as double)
然后然后图标里 就可以 调用 setSize w, h，这样代码修改 阅读起来简单