1、启动cdr，alt+f11 启动vba编辑器，插入窗体，插入两个文本框，分别命名为too和from 插入一个标签修改标题为随机范围，插入两个按钮分别命名为size和roto，修改标签及效果如图所示
2、随机尺寸代码编写如下：
Private Sub size_Click()
ActiveDocument.Unit = cdrMillimeter
Dim a As Integer, b As Integer
a = from.Text
b = too.Text
If ActiveSelection.Shapes.Count > 0 Then
Dim s As ShapeRange, q As Shape
Set s = ActiveSelectionRange
For Each q In s
q.SizeWidth = Int((b * Rnd) + a)
q.SizeHeight = Int((b * Rnd) + a)
Next q
End If
End Sub
效果如图：
3、随机旋转代码编写如下：
Private Sub roto_Click()
ActiveDocument.Unit = cdrMillimeter
Dim a As Integer, b As Integer
a = from.Text
b = too.Text
If ActiveSelection.Shapes.Count > 0 Then
Dim s As ShapeRange, q As Shape
Set s = ActiveSelectionRange
For Each q In s
q.Rotate Int((b * Rnd) + a)
Next q
End If
End Sub
效果如图：
1、至此代码已编写完成！谢谢观看，欢迎参考
