coreldraw vba脚本教程-随机尺寸-旋转

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、至此代码已编写完成！谢谢观看，欢迎参考