coreldraw vba脚本教程-统一尺寸
工具/原料
-
cdr vba
方法/步骤
-
1
本次插件编写较为需要一个按钮命名为size ，一个按钮名为target，具体界面如下：
-
2
编写size代码如下：
Dim p As Shape
Private Sub size_Click()
If ActiveSelection.Shapes.Count > 0 Then
Dim s As ShapeRange, a As Shape
Set s = ActiveSelectionRange
For Each a In s
a.SizeHeight = p.SizeHeight
a.SizeWidth = p.SizeWidth
Next a
End If
End Sub
Private Sub target_Click()
Set p = ActiveShape
End Sub
效果如图：
-
3
代码编写结束，欢迎参考 cdrvba欢迎您的加入
END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。
展开阅读全部
文章评论