有沒有什麼方法使相冊裏的照片做成同一規格 一看就知道

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 t

aaa(i)Width = a

aaa(i)Height = b

Next i

End Sub

2、打VBA編輯器(快捷鍵ALT+F11)，隨便打開一個“模塊”這個分類 前面的 + 號。雙擊下面顯示出來的那個corelXXXXX (後面的XXXX是一個名字)。把上面的代碼粘貼進去，切換到CDR。選中你要設置為同樣大小的東西。(這裏可以在打開VBA編輯器之前就選中，就可以省去這步)，然後切換到VBA編輯器，按F5。