Mise en place de zones de texte dans MS Word Macro

Question

J'ai une macro dans Word qui sélectionne un groupe de zones de texte et les réduit à 1% de leur taille d'origine, afin de les masquer efficacement. Ensuite, une autre macro les agrandit à 100x leur taille, afin de les montrer de nouveau.

Les 2 codes sont les suivants:

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 

Cela devrait logiquement les ramener exactement comme ils ont commencé. Cependant, les rétrécir puis les repousser les laisse dans des positions différentes de ce qu'elles étaient. Les rétrécir échoue également à cacher le texte à l'intérieur d'eux, qui à travers une sorte de bogue affiche de toute façon.

J'ai inclus des images de l'état d'origine, de l'état rétréci et de l'état re-dilaté.

Original:

Shrunk:

final: Toutes les idées comment résoudre ce problème?

Merci!

Answer 1

essayer cette

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