☰

VBA で「1 ページに縮小」を使用する

tag-icon • tag-icon microsoft-word vba macros
VBA で「1 ページに縮小」を使用する

Microsoft Word でという素晴らしい機能を見つけました。この機能をイベント"Shrink to One Page"のマクロ経由で呼び出したいです。Document Open

https://lextechreview.com/microsoft-word-tips-hidden-feature-shrink-one-page/

これらのリンクを見つけましたが、まさに欲しいものが見つかりません。

例えば：

https://docs.microsoft.com/en-us/office/vba/api/word.selection.shrink

If Selection.Type = wdSelectionNormal Then 
 Selection.Shrink 
Else 
 MsgBox "You need to select some text." 
End If

ただし、これは次のことだけを実行します --> この例では、選択したテキストを次の小さいテキスト単位に折りたたみます。

「1ページに縮小」する必要があります

ありがとう

答え1

使用したいメソッド名は だと思いますFitToPages。これは、クイック アクセス ツール バーのラベルが示すように、1 ページだけではなくドキュメント全体に適用されます。

コマンドの使用例は次のようになります。ActiveDocument.FitToPages

関連情報