Macros to zoom to 150% and 100%

gmayor · #2 08-18-2015, 09:11 PM

It is very simple to create such macros, but whether they are more useful than the built-in zoom function is debatable. http://www.gmayor.com/installing_macro.htm

Code:

Sub Zoom100()
    With ActiveWindow.View
        If Err.Number = 4248 Then Exit Sub
        .Type = wdPrintView
        .Zoom = 100
    End With
End Sub

Sub Zoom150()
    With ActiveWindow.View
        If Err.Number = 4248 Then Exit Sub
        .Type = wdPrintView
        .Zoom = 150
    End With
End Sub

Perhaps more useful would be a macro to toggle between 100% and 150%?

Code:

Sub ToggleZoom()
    With ActiveWindow.View
        If Err.Number = 4248 Then Exit Sub
        .Type = wdPrintView
        If Not .Zoom = 100 Then
            .Zoom = 100
        Else
            .Zoom = 150
        End If
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
OneNote Zoom in	Techno_y0	OneNote	1	04-27-2015 02:14 AM
Zoom-in and -out	mpv55	PowerPoint	0	10-28-2013 08:01 AM
Can't zoom in - PPT 2013?	TheDave777	PowerPoint	1	04-19-2013 08:54 AM
Zoom in transitions	pdj	PowerPoint	1	11-01-2012 11:14 AM
Zoom In and Out	DAC8190	PowerPoint	1	03-16-2011 08:50 AM