有沒有什麼方法使相簿裡的照片做成同一規格

　　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。

　　步驟如下：

　　1、將一張乾燥有厚度的紙平鋪在比紙大的木板上；

　　2、然後向紙面噴水霧，使其溼透均勻又無剩水流；

　　3、用手或大毛刷從中向兩端輕輕地抹，反覆幾次，這樣紙就可以變長；

　　4、再將貼在板上紙和板一同晾乾，最後揭下來即可。

　　方法如下：

　　在水裡加鹽,當雞蛋的密度比水小時就可以了；在雞蛋外包一層比水的密度小的物質,如塑膠泡沫等；雞蛋放在飽和食鹽水中會上浮.雞蛋放在稀鹽酸中會上浮，鹽水密度大，蛋殼中的碳酸鈣與鹽酸反應使殼表面充滿氣體而使雞蛋上浮。