1、本次插件编写较为需要一个按钮命名为size ，一个按钮名为target，具体界面如下：
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效果如图：
3、代码编写结束，欢迎参考 cdrvba欢迎您的加入