應用場景：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的過)
    '這裡必須設定文件單位 不設的話你們試試其它方法 嘿嘿！
    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