有沒有什麼方法使相冊裡的照片做成同一規格?代碼：ShapeRangeSet aaa = ActiveSelectionRange，我來為大家科普一下關于有沒有什麼方法使相冊裡的照片做成同一規格?下面希望有你要的答案，我們一起來看看吧!
有沒有什麼方法使相冊裡的照片做成同一規格
代碼：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
打VBA編輯器(快捷鍵ALT+F11)，随便打開一個“模塊”這個分類 前面的 + 号。雙擊下面顯示出來的那個corelXXXXX (後面的XXXX是一個名字)。把上面的代碼粘貼進去，切換到CDR。選中你要設置為同樣大小的東西。(這裡可以在打開VBA編輯器之前就選中，就可以省去這步)，然後切換到VBA編輯器，按F5。
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
