coreldraw vba脚本教程-统一尺寸

 时间:2024-10-13 00:19:34

1、本次插件编写较为需要一个按钮命名为size ,一个按钮名为target,具体界面如下:

coreldraw vba脚本教程-统一尺寸

2、编写size代码如下:Dim p As ShapePrivate Sub si所鼙艘疯ze_Click()If ActiveSelection.Shapes.潮贾篡绐Count > 0 ThenDim s As ShapeRange, a As ShapeSet s = ActiveSelectionRangeFor Each a In sa.SizeHeight = p.SizeHeighta.SizeWidth = p.SizeWidthNext aEnd IfEnd SubPrivate Sub target_Click()Set p = ActiveShapeEnd Sub效果如图:

coreldraw vba脚本教程-统一尺寸coreldraw vba脚本教程-统一尺寸

3、代码编写结束,欢迎参考 cdrvba欢迎您的加入

  • 怎样使用CorelDRAW 2020折线工具绘制弧线
  • 如何用Coreldraw软件应用图层和管理符号
  • cdr网格是如何来设置的?
  • CorelDRAW 如何使用虚拟段删除工具
  • CorelDRAW 中的星形工具
  • 热门搜索
    fork是什么意思 龌龊是什么意思 什么食物含维生素b pen是什么意思 信噪比是什么意思 什么的礼物 8月4日是什么节日 诗歌是什么 貔貅是什么 3月25日是什么星座