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.csdn.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