Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 06-01-2021, 08:35 AM
Matt C's Avatar
Matt C Matt C is offline Tell VBA to remember user's View and Zoom Percentage settings Windows 10 Tell VBA to remember user's View and Zoom Percentage settings Office 97-2003
Advanced Beginner
Tell VBA to remember user's View and Zoom Percentage settings
 
Join Date: May 2021
Location: London, UK
Posts: 30
Matt C is on a distinguished road
Question Tell VBA to remember user's View and Zoom Percentage settings

Hi folks.

Just a quickie. The code below is a quick fix for Word 2003's notorious "tiny cursor" error which sometimes arises.

Is there any way of amending this so that VBA remembers the user's view settings (e.g. Print View, Reading View) and the current zoom percentage, and restores them after the quick zoom to 500%?



Currently, this works for my own personal settings (Print View, Zoom 120%) but I'm mindful that I may wish to share the template with other users who have their own settings.

Quote:
Sub WindowViewSettings()
'
'Macro to fix occasional "tiny cursor" error

With ActiveWindow.View
.Type = wdPrintView 'Print Layout View
.Zoom.Percentage = 500 'Fix tiny cursor bug in Word 2003
.Zoom.Percentage = 120 'Specify user's percentage
End With

End Sub
Thanks, peeps.
Reply With Quote
  #2  
Old 06-01-2021, 03:42 PM
Guessed's Avatar
Guessed Guessed is offline Tell VBA to remember user's View and Zoom Percentage settings Windows 10 Tell VBA to remember user's View and Zoom Percentage settings Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

The usual way to do it is store the current setting in a variable and then use it afterwards
Code:
Sub WindowViewSettings()
'Macro to fix occasional "tiny cursor" error
  With ActiveWindow.View
    .Type = wdPrintView 'Print Layout View
    iPref = .Zoom.Percentage
    .Zoom.Percentage = 500 'Fix tiny cursor bug in Word 2003
    .Zoom.Percentage = iPref 'Specify user's percentage
  End With
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Setting default View-Zoom level ewormuth Word 4 06-02-2019 02:49 PM
Export/import view settings of MS Outlook ccc Outlook 0 06-06-2012 07:23 PM
Change User Settings Globally within an Office. Welshie82 Word 0 10-24-2011 07:56 AM
Tell VBA to remember user's View and Zoom Percentage settings User Defined Default Settings in Insert J_oe Word 1 02-17-2011 10:55 AM
Tell VBA to remember user's View and Zoom Percentage settings Outlook doesn't remember junk settings djames1958 Outlook 1 10-17-2010 06:13 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 12:55 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft