CorelDRAW——VBA实例篇修改当前页面所有对象大小

应用场景：56张图改同样的尺寸大小。

为什么做了这个：corelDRAW目前不支持批量修改图片尺寸，改了56张好浪费时间

主函数 main：

Private Sub Document_QueryClose(Cancel As Boolean)

End Sub

窗口界面：

宽度输入框：

高度输入框：

修改按钮：

窗口代码(功能实现):

修改按钮点击事件

Private Sub Update_1_Click()
   Dim s1

   Dim i As Integer
   '获取页面对象集合
    ActiveDocument.ReferencePoint = cdrCenter
    ' 设置当前文档单位为毫米(鬼知道我找这个函数找了多久,没详细API的过)
    '这里必须设置文档单位 不设的话你们试试其它方法 嘿嘿！
    '推荐一个链接https://blog.****.net/zebe1989/article/details/79029015utm_source=blogxgwz0
    ActiveDocument.Unit = cdrMillimeter
    '设置for遍历对象数组，i会自动增加，语法怪怪的
        For i = 1 To ActiveLayer.Shapes.Count
            '遍历数组时设置高宽
            'height_1：窗口高度输入框名称
            'wight_1：窗口宽度输入框名称
            ' 输入框名称.text：获取当前输入框名称文本内容
             ActiveLayer.Shapes(i).SizeHeight = height_1.Text
             ActiveLayer.Shapes(i).SizeWidth = width_1.Text
         '自加 循环结束
        Next i
    
End Sub