什麼方法可以使水錶慢轉

　　使水錶轉慢的方法：

　　1、將水錶閥門關閉，用虎口鉗拆下水錶，使水管裡存水流完；

　　2、擷取8到10公分鐵絲，將擷取的鐵絲從水錶進水口居中插進去，不能用力過猛，頂住水錶裡轉動的的齒輪；

　　3、將水錶重新裝回去，安裝完水錶之後可開啟閥門，開啟水龍頭觀察水錶轉速即可。

　　使玫瑰花慢點枯萎的方法如下：

　　1、可以將鮮花的根部斜著剪口，可增加玫瑰花吸水的部位，能夠更多地吸收水分；

　　2、每天剪去一些根部，保證能夠更好的吸收水分；

　　3、將浸在水裡的葉子摘掉；

　　4、每天要換水，如果是夏天，為了保持水溫不升高，還可以往花瓶裡放幾塊冰，同時，花瓶裡的水放滿，不僅能使水的溫度保持得長久些，還可以增加花瓶底部的重量，保證花瓶的穩定性；

　　5、可以往花瓶裡放少許啤酒，或者將兩片阿司匹林研成末放進去，可延長玫瑰花的壽命。

　　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。