Vba 在MS Word宏中保留文本框

我在Word中有一个宏，它选择一堆文本框，并将它们缩小到原始大小的1%，以便有效地隐藏它们。然后，另一个宏将它们扩展到其大小的100倍，以便重新显示它们

这两个代码是：

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

从逻辑上讲，这应该会让他们回到他们开始时的样子。然而，缩小它们，然后再扩大它们，使它们处于不同的位置。缩小它们也无法隐藏其中的文本，这是通过某种缺陷显示出来的

我包括了原始状态、收缩状态和重新展开状态的图像

原件：

缩小：

最终： 有没有办法解决这个问题

谢谢大家!

试试这个

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