有沒(méi)有什么方法使相冊(cè)里的照片做成同一規(guī)格一看就知道 _生活百科

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