【Word VBA】表示倍率を変更するWordマクロ

2011年1月10日

,

指先でズーム は、私のお気に入りマクロです。

ただ、ふと気がついたのですが、あのようなビジュアルで楽しめるマクロを使わなくても、 表示倍率の調整って可能なんですよね。

以下のマクロをキーボードから実行できるようにすればかなり便利ですよ。

５％ずつアップ・ダウンができます。

ズーム倍率アップ（ズームイン）

最大値は５００％なので、以下のような記述になっています。


Sub Zoom_In()

　　If ActiveWindow.View.Zoom <= 495 Then
　　　　ActiveWindow.View.Zoom = ActiveWindow.View.Zoom + 5
　　Else
　　　　ActiveWindow.View.Zoom = 500
　　End If

End Sub

ズーム倍率ダウン（ズームアウト）

最小値は１０％なので、以下のような記述になっています。


Sub Zoom_Out()

　　If ActiveWindow.View.Zoom >= 15 Then
　　　　ActiveWindow.View.Zoom = ActiveWindow.View.Zoom - 5
　　Else
　　　　ActiveWindow.View.Zoom = 10
　　End If

End Sub

ページ幅に合わせた表示

→どの倍率からでも、一気に戻れます。案外便利。


Sub Zoom_PageFitTextFit()

　　ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitTextFit

End Sub

関連記事

指先でズーム！ の目次

-コード
-,