One of the best new features of recent versions of Internet Explorer is the ability to do full-page zoom using [CTRL] + [Mouse Scroll Wheel] or [CTRL] + [+] or [-].

PLEASE consider adding [CTRL] + [+] or [-] zoom in/out capability for all us laptops users without mouse scroll-wheels.

On Thu, 14 Apr 2011 18:57:44 +0000, Richard Turner [BitCrazed] wrote:

One of the best new features of recent versions of Internet Explorer is the ability to do full-page zoom using [CTRL] + [Mouse Scroll Wheel] or [CTRL] + [+] or [-].

PLEASE consider adding [CTRL] + [+] or [-] zoom in/out capability for all us laptops users without mouse scroll-wheels.

You can set this up for yourself. First add these macros to a module in your
Normal.dot template (or Normal.dotm for Word 2007 or 2010):

Sub ZoomIn()
    If ActiveWindow.View.Zoom < 450 Then
        ActiveWindow.View.Zoom = ActiveWindow.View.Zoom + 10
    End If
End Sub

Sub ZoomOut()
    If ActiveWindow.View.Zoom > 20 Then
        ActiveWindow.View.Zoom = ActiveWindow.View.Zoom - 10
    End If
End Sub

Then go to the Customize Keyboard dialog and assign the Ctrl+[+] shortcut to
the ZoomIn macro, and Ctrl+[-] to the ZoomOut macro.

The macros change the zoom by 10% with each press of the shortcut. If you want
a larger or smaller increment, change the number 10 in each macro.

Thanks for the suggestion Jay. I've used similar techniques in the past, but it's a PITA to have to carry such scripts forward across all the machines under one's control ... and harder still to make these changes consistenly in environments where one does not have full control.

I still believe that such a fundamental feature as document zooming, which warranted a new UI (slider) element, deserves an appropriate keyboard shortcut that's consistent with other popular apps such as IE.

You dont even have to do that.  You can just hold down CTRL and scroll anywhere and it will zoom in and out.  You can do it in any window, in any program and it will work.  I think it is a feature of windows, not of the individual programs.

Or get a wireless mouse with a scroll wheel for your laptop.

• Edited by _lhart_ Thursday, November 17, 2011 9:48 PM

How do I scroll on a laptop without a mouse?

Every time I have to take my hands off my keyboard, I lose productivity.

There are many of us who enjoy a significant productivity boost from learning keyboard shortcuts for many of the most frequently performed actions (especially in Ribbonized UI such as Office 2007+ and Windows 8). Not having the ability to zoom in & out via keyboard shortcuts (consistent with other popular apps/experiences) is a hindrance and VERY annoying once you've tried [CTRL] + [+] or [-] in IE/Chrome/FF/etc.

 

Richard Turner [Bitcrazed] wrote:

How do I scroll on a laptop without a mouse?

That depends on what you have instead of a mouse. You can certainly scroll with a touchpad. Stefan Blom, Microsoft Word MVP

But not with most pen tablets. And touchpads are a PITA for scrolling too if you want to keep your hands on the keyboard. And so on. Honestly, it's becoming almost as standard a set of shortcuts as Ctrl-X/C/V these days -- what's so hard about including it that it eludes the Office devs? It's a trivial addition that would make a lot of users happy.

What David said.

IE Chrome, etc. support font-zooming with [CTRL] + [+]/[-]. Visual Studio now also supports font-zooming albeit with [CTRL] + [<]/[>] (grrr).

It'd be AWESOME if Office were to recognize that people are now using a wider variety of screen sizes @ different DPI levels and that zooming in using a consistent keyboard key chord would be enormously valuable to many users. For example:

I have a Sony Vaio Z Series which doesn't support pinch-zoom.

I also have a MacBook Pro running Win8 which does support pinch-zoom.

Don't forget my SurfaceRT with a trackpad that also supports pinch-zoom, albeit in a very small area. And like my Samsung Series7 slate, both have touch-screens so I can pinch-zoom, but once again I am taking my hands off the keyboard and losing productivity.

Dude! thanks so much. I've been wanting this for two or three years now. All other applications that I use do it by default, so I'm constantly trying to zoom but instead I'm typing random symbols. :o)

Hello,

thank you Jay Freedman for the macros. They work great in Word 2010.

Is it possible to get the macros working in Outlook 2010 for the Message text?

a) Navigation Pane Normal and Reading Pane Bottom/Right

b) Message/E-Mail opened in second Window

c) Writing a new Message/E-Mail

References:

https;//msdn,microsoft,com/en-us/library/office/ff834873(v=office.14).aspx

For b) and c) I found the following thread where they use the "Microsoft Word 14.0 Object Libary" as reference:

https;//social,technet,microsoft,com/Forums/office/en-US/46ca9a02-fdb8-4f59-b2bc-e699b244b240/outlook-2010-preview-pane

Then I added my functions to change the zoom level while writing a new Message/E-Mail:

Option Explicit
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objOpenInspector As Outlook.Inspector
Dim WithEvents objMailItem As Outlook.MailItem

Private Sub Application_Startup()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub Application_Quit()
    Set objOpenInspector = Nothing
    Set objInspectors = Nothing
    Set objMailItem = Nothing
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
    Set objMailItem = Inspector.CurrentItem
    Set objOpenInspector = Inspector
End If
End Sub

Private Sub objOpenInspector_Close()
    Set objMailItem = Nothing
End Sub

Private Sub objOpenInspector_Activate()
    Dim wdDoc As Word.Document
    Set wdDoc = objOpenInspector.WordEditor
    wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 100
End Sub



' My functions
Private Sub ZoomIn()
    Dim wdDoc As Word.Document
    Set wdDoc = objOpenInspector.WordEditor
    If wdDoc.Windows(1).Panes(1).View.Zoom.Percentage < 450 Then
        wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = wdDoc.Windows(1).Panes(1).View.Zoom.Percentage + 10
    Else
        MsgBox "Maximum Zoom level reached"
    End If
End Sub
 
Private Sub ZoomOut()
    Dim wdDoc As Word.Document
    Set wdDoc = objOpenInspector.WordEditor    
    If wdDoc.Windows(1).Panes(1).View.Zoom.Percentage > 20 Then
        wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = wdDoc.Windows(1).Panes(1).View.Zoom.Percentage - 10
    Else
        MsgBox "Minimum Zoom level reached"
    End If
End Sub

Private Sub ZoomDefault()
    Dim wdDoc As Word.Document
    Set wdDoc = objOpenInspector.WordEditor
    wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 100
End Sub

Sub GetZoomLevel()
    Dim z As Integer
    Dim wdDoc As Word.Document
    Set wdDoc = objOpenInspector.WordEditor
    z = wdDoc.Windows(1).Panes(1).View.Zoom.Percentage
    MsgBox "Current Zoom level: " & z & "%"
End Sub
' My functions end

Finally I added my 4 functions to the "Quick Access Toolbar" of and existing and a new Message/E-Mail and assigned 4 icons.

• Edited by blueice_haller 18 hours 57 minutes ago