1、启动cdr，alt+f11 启动vba编辑器，插入窗体，插入两个文本框，分别命名为too和from 插入一个标签修改标题为随机范围，插入两个按钮分别命名为size和roto，修改标签及效果如图所示
2、随机尺寸代码编写如下：Private Sub size_Click()ActiveDocument.Unit = cdrMillimeterDim a As Integer, b As Integera = from.Textb = too.TextIf ActiveSelection.Shapes.Count > 0 ThenDim s As ShapeRange, q As ShapeSet s = ActiveSelectionRangeFor Each q In sq.SizeWidth = Int((b * Rnd) + a)q.SizeHeight = Int((b * Rnd) + a)Next qEnd IfEnd Sub效果如图：
3、随机旋转代码编写如下：Private Sub roto_Click()ActiveDocument.Unit = cdrMillimeterDim a As Integer, b As Integera = from.Textb = too.TextIf ActiveSelection.Shapes.Count > 0 ThenDim s As ShapeRange, q As ShapeSet s = ActiveSelectionRangeFor Each q In sq.Rotate Int((b * Rnd) + a)Next qEnd IfEnd Sub效果如图：
