【有沒有什么方法使相冊里的照片做成同一規格 一看就知道】1、代碼：ShapeRange
Set aaa = ActiveSelectionRange
Dim a As Integer
Dim b As Integer
a = InputBox(請輸入寬度. & Chr(13) & 注：根所你的CDR單位制度會有所不同)
b = InputBox(請輸入高度. & Chr(13) & 注：根所你的CDR單位制度會有所不同)
Dim i As Integer
For i = 1 To aaa.Count
aaa(i).SizeWidth = a
aaa(i).SizeHeight = b
Next i
End Sub
2、打VBA編輯器(快捷鍵ALT F11)，隨便打開一個“模塊”這個分類 前面的號 。雙擊下面顯示出來的那個corelXXXXX (后面的XXXX是一個名字) 。把上面的代碼粘貼進去，切換到CDR 。選中你要設置為同樣大小的東西 。(這里可以在打開VBA編輯器之前就選中，就可以省去這步)，然后切換到VBA編輯器，按F5 。

猜你喜歡

• 蘆薈扦插方法 如何扦插蘆薈
• 雋爺秦苒書名是什么
• 紅樓夢的主要內容20字 紅樓夢的主要內容是什么
• 水煮海螃蟹的正確方法 水煮海螃蟹的做法
• 什么時候要支付雙倍工資
• 小雞燉蘑菇怎么燉 小雞燉蘑菇方法介紹
• 小雞保溫最簡單的方法 怎樣給小雞保溫
• 復蘇花的養殖方法 復蘇花的養殖方法有哪些
• 爵跡風津道什么時候出單行本
• 換氣扇響怎么處理 處理聲音大的方法