使玫瑰花慢點枯萎的方法如下：
1、可以將鮮花的根部斜著剪口，可增加玫瑰花吸水的部位，能夠更多地吸收水分；
2、每天剪去一些根部，保證能夠更好的吸收水分；
3、將浸在水裡的葉子摘掉；
4、每天要換水，如果是夏天，為了保持水溫不升高，還可以往花瓶裡放幾塊冰，同時，花瓶裡的水放滿，不僅能使水的溫度保持得長久些，還可以增加花瓶底部的重量，保證花瓶的穩定性；
5、可以往花瓶裡放少許啤酒，或者將兩片阿司匹林研成末放進去，可延長玫瑰花的壽命。
使玫瑰花慢點枯萎的方法如下：
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。
步驟如下：
1、將一張乾燥有厚度的紙平鋪在比紙大的木板上；
2、然後向紙面噴水霧，使其溼透均勻又無剩水流；
3、用手或大毛刷從中向兩端輕輕地抹，反覆幾次，這樣紙就可以變長；
4、再將貼在板上紙和板一同晾乾，最後揭下來即可。