Can default to 150%

[kevs12]

Version: 2004 Operating System: Mac OS X 10.6 (Snow Leopard) Processor: Intel With my new imac everything is looking tiny.
Can I get all excel files to default to 150%. thanks!

 

[John McGhie]

Yes you can.

The Macro I sent you for Word will also work in Excel. You need to create
an Excel workbook in your Excel Startup folder to contain the Macro so that
it runs every time you open an Excel file.

Cheers

Version: 2004 Operating System: Mac OS X 10.6 (Snow Leopard) Processor: Intel
With my new imac everything is looking tiny.
Can I get all excel files to default to 150%. thanks!

--

The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!

John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410
+61 4 1209 1410, mailto:[email protected]

 

[kevs12]

Thanks John,
For Word, I got the Normal to set at 125%.
So all new docs are at that which is nice.
Only thing cant achieve in Word for the new Docs is this:
they shoot to the left side of the monitor.
With old docs, i position them where I want and it stick, but for new docs it wont stick, always shoots to the left. Anything I can do? I hate dragging it everytime to the center of the monitor.

I'm thinking it's no big deal to set to 125% for all the old docs, better than having a unstable macro in all future docs - do you agree?
------
if you agree, then for Excel, how to change the startup file properly. I've tried to adjust what in startup, but it wont stick.

 

[John McGhie]

Hi Kevs:

Well... The macro should not be in the "Document". It should be in the
Normal template. It won't work properly if it is not.

And the macro will be quite stable: it will always give you 125%.

You can also make it move the window if you like... Here you go:

Sub SetWindowSize()
'
' SetWindowSize Macro
'
'
Dim aDoc As Document
Dim aWindow As Window

Set aDoc = ActiveDocument
Set aWindow = aDoc.ActiveWindow

With aWindow
.WindowState = wdWindowStateNormal
.Height = (Application.UsableHeight * 1)
.Width = (Application.UsableWidth * 0.5)
.Left = ((Application.UsableWidth - .Width) / 2)
.View.Zoom.Percentage = 125
End With

End Sub

Compare carefully: You will see two changes.

First, I removed the ".Top" line: there is no point in specifying it, since
we are specifying a height of 100%, so it can only be "0".

Next, I changed the .Left line to put the Word window in the middle of the
screen for you. What it does is retrieve the "UseableWidth" from Mac OS X
and subtract the width you set for your Word window to work out how much
room is left, then divide that in half.

The "Left" parameter sets the position of the left edge of the Word window,
so this calculation sets every Word document to be half the available width
of the screen and right in the middle.

Just paste into TextEdit, "Make plain text" then paste into the VBA Editor
over the top of the code you have now.

Check carefully that you have pasted accurately, and it will work (I know, I
tested it in Word 2004 for you).

Cheers

Thanks John,
For Word, I got the Normal to set at 125%.
So all new docs are at that which is nice.
Only thing cant achieve in Word for the new Docs is this:
they shoot to the left side of the monitor.
With old docs, i position them where I want and it stick, but for new docs it
wont stick, always shoots to the left. Anything I can do? I hate dragging it
everytime to the center of the monitor.

I'm thinking it's no big deal to set to 125% for all the old docs, better than
having a unstable macro in all future docs - do you agree?

--

The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!

John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410
+61 4 1209 1410, mailto:[email protected]

 

[kevs12]

John, I just now trying to get my default excel workbook to be 125%. I've adjust the startup file to no avail, what am I doing wrong?

 

[John McGhie]

Unless you tell me what happens instead, I can't answer.

The default workbook will affect the size of NEW Workbooks only. Existing
ones should open at the size they were saved.

John, I just now trying to get my default excel workbook to be 125%. I've
adjust the startup file to no avail, what am I doing wrong?

--

The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!

John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410
+61 4 1209 1410, mailto:[email protected]

 

[kevs12]

John, in excel two issues:
It launches with a new workwook automatically, and you do command N for new workbooks.
I've been told on this forum for one of them, not sure which one now, you go to the startup folder, tweak to taste and save as workbook with no extension. I did that to no avail.
I can't remember what effects the other scenario. thanks.

 

[John McGhie]

Hi Kevs:

In the Excel Help, use this procedure:

"Create a template for workbooks or worksheets"

The file must be named "Workbook", and (in Excel 2004) it must not have a
file-name extension, and it must be saved as type "Template", and it must be
in the Excel Startup folder.

All four things must be true at the same time, or it won't work.

Cheers

John, in excel two issues:
It launches with a new workwook automatically, and you do command N for new
workbooks.
I've been told on this forum for one of them, not sure which one now, you go
to the startup folder, tweak to taste and save as workbook with no extension.
I did that to no avail.
I can't remember what effects the other scenario. thanks.

--

The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!

John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410
+61 4 1209 1410, mailto:[email protected]