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