新手学习做的第一个插件，不喜勿喷，看图

遥不可及灬

我主要是做广告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

提取码：

游客,本付费内容需要支付 5印币 才能浏览支付

遥不可及灬

之前的分享失效了，这是最新的链接，另外建议下载另外一个帖子的文件，是更新版

更新版地址：https://www.52cnp.com/thread-19744-1-1.html

本文插件地址：[color=rgba(0, 0, 0, 0.85)]h[color=rgba(0, 0, 0, 0.85)]https://www.123pan.com/s/9QUSVv-M883A.html提取码:

游客,本付费内容需要支付 5印币 才能浏览支付

landboy

遥不可及灬 发表于 2023-11-13 13:31
感谢建议，我有空研究研究，其实我啥都不会，主要靠ChatGPT

你就让 GPT 帮我改成函数的代码


问题:  CorelDRAW VBA 选中多个物件， 设置成统一大小， 比如100x100mm 我想输入 setSize 100, 100 调用，请写下这个 setSize函数



不过好像回答是错误的，不过函数定义的大概结构出来的，然后自己改改就可以了

pengfeifox

第二、三排按钮可以自定义常用尺寸的话就再好不过了，非常实用的插件

yiweimeigong

多谢你的分享，很有幸是第一个下载它。

wfsfg

谢谢分享，这个插件好，社区高手如云，一定越来越兴旺。

zhangmengqtzm

楼主有心了！还提供了原码可以修改自己常用的尺寸，比较方便。

zjw9876543210

可以发一些宏的教程?

sjh0358

这才是插件该有的样子！ 多谢分享

HYP

很是羡慕会弄这些插件的高手

大哥哥

期待更新，目前这个也是有用的

landboy

修改尺寸的 子程序，可以写成函数  setSize(w as double, h as double)
然后  然后图标里 就可以 调用    setSize w, h  ，这样代码修改 阅读起来简单