在MS Word宏中保留文本框

Question

我在Word中有一個宏選擇一堆文本框並將它們縮小到其原始大小的1％，以便有效地隱藏它們。然後另一個宏展開他們自己的100倍大小，以重新顯示它們。

的2碼爲：

Sub ShrinkBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Select 
    Selection.ShapeRange.ScaleHeight 0.01, msoFalse 
End Sub 

Sub ExpandBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Select 
    Selection.ShapeRange.ScaleHeight 100, msoFalse 
End Sub 

這按理應該把他們帶回正是因爲他們開始了。然而，收縮它們，然後再擴大他們使他們在不同的位置比他們開始。收縮他們也無法隱藏在他們裏面的文字，它通過某種類型的錯誤無論如何顯示。

我已經包括了原來的狀態，在收縮狀態下，並重新展開狀態的圖像。

原文：

縮水：

決賽： 任何想法如何解決這一問題？

謝謝！

Answer 1

試試這個

Sub ShrinkBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Visible = False 
End Sub 

Sub ExpandBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Visible = True 
End Sub