在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