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 

を試してみてください