coreldraw 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欢迎您的加入