Share via

How do I change the keyboard shortcuts?

Anonymous
2010-07-09T20:33:45+00:00

At the risk of sounding petulant .... Arrrrrgh

Zooming with Visio is painful and I cannot find a way of changing the keys.

From the help files:

Zoom in. ALT+F6

Zoom out. ALT+SHIFT+F6

Fit to window CTRL+SHIFT+W

Years of browser use has trained me to use ctrl+ and ctrl- for in and out. These keys do not seem consistent (sometimes F6, sometimes W) and neither can the be done with one hand (an Accessibility issue).

Unfortunately a mouse is not an option.

Where are the custom keyboard options?

Thanks.

Microsoft 365 and Office | Access | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Anonymous
2010-07-10T13:44:19+00:00

window may be an object, you might be a little more specific

sub zoomout

dim actWindow as visio.window

set actWindow = application.activewindow

actWindow.zoom = something

end sub

Was this answer helpful?

0 comments

6 additional answers

Sort by: Most helpful
Most helpful Newest Oldest
  1. Anonymous
    2012-08-22T08:22:44+00:00

    Visio 2010 does not allow  you to customize the keyboard shortcuts. Yes, in this day and age. Would you believe it?

    Was this answer helpful?

    3 people found this answer helpful.
    0 comments
  2. Anonymous
    2010-07-10T10:17:25+00:00

    Thanks for the replies.

    Just so I have it straight in my mind ... you really cannot configure the keyboard? Is this Visio or Office 2010?

    The icons are cumbersome whether you add them to a new tolbar or use those at the bottom. My pointer is in the middle of the screen and I have to scoll to the top or bottom just to zoom in and out?

    I have just found the VBA (Called Macros!) but the help system is less than ideal.

    The code I am trying at the moment is

    Sub zoomin()

    Window.Zoom = Window.Zoom + 25

    End Sub

    Sub zoomout()

    Window.Zoom = Window.Zoom - 25

    End Sub

    but it giving a runtime error '424' Object required.

    As far as I can tell, 'Window' is an object. 'Me' and 'ActiveDocument' do not have the zoom property.

    As an added irritation, I cannot set the macro's shortcut to - / + becasue these are not letters. It would appear that only alphabetic letters can be used (a work around for this seemingly abitrary limit would also be welcome!)

    Was this answer helpful?

    0 comments
  3. Anonymous
    2010-07-09T23:36:47+00:00

    1.  2010 has a bunch of zoom controls at the bottom right on the status bar:  You can click anywhere one the zoom slider, you can drag the slider, you can click the + or - buttons or you can click the fit to page button.

    1. You can also use the mouse+keyboard:  Ctrl+Shift+Left or Ctrl+Shift+Right mouse to zoom in or out.
    2. You can turn on the Zoom & Pan window by choosing View, Task Panes, Pan & Zoom
    3. You could write VBA code to zoom but most people don't in Vision

    If this answer solves your problem, please check, Mark as Answered. If this answer helps, please click the Vote as Helpful button. Cheers Shane Devenshire

    Was this answer helpful?

    0 comments
  4. Anonymous
    2010-07-09T22:15:44+00:00

    File -> Options -> Customise Ribbon

    select "commands not in the ribbon"

    Create a new tab or new group and move the zoom in and zoom out into the new tab.

    Regards, Paul Herber, Sandrila Ltd. Engineering and software stencils and applications for Visio - http://www.sandrila.co.uk/

    Was this answer helpful?

    0 comments