如何在coreldraw中使用宏，舉個具體的例子。謝謝！

'此例為壹百個圓的縮放

Dim i As Integer '定義變量i為整數

For i = 1 To 100 '定義i的取值範圍

ActiveLayer.Shapes(i).Stretch 0.5 '等比縮小壹倍（圓心不變）

Next '繼續

End Sub