Hi Nick,
hee hee hee
Well in my original post i said it "may sound kinda stupid"
But i will play with this a few days, before trashing it.
As a workaround i put a button on my toolbar.
Thx for all your input
Dave
NickHK Wrote:
Why not put them to Maximised instead, if there is only a single
window.
Tiling a single window makes no sense.
Then you do not have be concerned with other open windows.
NickHK
"Desert Piranha"
<Desert.Piranha.2aclso_1151894402.6575@excelforu m-nospam.com wrote in
message
news:Desert.Piranha.2aclso_1151894402.6575@excelfo rum-nospam.com...
Hi Nick,
No. I don't think any of the workbooks have multiple windows. So what
i
am looking for,
is like if you just open a workbook, and then go to
"WindowsArrangeTiled", then save and close.
So only one workbook is open at a time, no multiple windows.
I have a bunch of workbooks in a directory, that when opened (one at
a
time), open to
various sizes on my screen. I want to change them so they open to
the
standard above.
I know i can just do it manually, when i open them manually, but i'm
kinda lazy so i thought
i could just use code to set them all to that standard.
Thx
Dave
NickHK Wrote:
What are you trying to achieve by tiling a single workbook ?
Do these WBs have multiple windows ?
NickHK
"Desert Piranha"
<Desert.Piranha.2aax5b_1151815802.7309@excelforu m-nospam.com wrote
in
message
news:Desert.Piranha.2aax5b_1151815802.7309@excelfo rum-nospam.com...
Hi all,
This may sound kinda stupid but what i am trying to do is open
all
workbooks in a directory
"One at a time" and do the "Windows.Arrange
ArrangeStyle:=xlTiled"
code
on them.
One issue is the workbook where the code is, obviously is open,
to
start the macro.
This doesn't work because if another workbook opens then there
are
two
windows tiled.
I don't want that.
Another issue is the code saves and closes the workbooks, and
since
the
workbook with the code
is open, that won't work,
So Any Ideas?
Just in case this might somehow work, here is the code i am
trying
to
use.
And i apologize i don't know whose it is.
Code:
--------------------
Sub AllFolderFiles()
Dim wb As Workbook
Dim TheFile As String
Dim MyPath As String
Application.ScreenUpdating = False
Application.EnableEvents = False
'Put folder path next line.
MyPath = "C:\Documents and Settings\Owner\Desktop\Tiled
Testing"
ChDir MyPath
TheFile = Dir("*.xls")
Do While TheFile < ""
Set wb = Workbooks.Open(MyPath & "\" & TheFile)
'Your code goes here.
Windows.Arrange ArrangeStyle:=xlTiled
wb.Close SaveChanges:=True
TheFile = Dir
Loop
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
--------------------
--
Desert Piranha
------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread:
http://www.excelforum.com/showthread...hreadid=557636
--
Desert Piranha
------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread:
http://www.excelforum.com/showthread...hreadid=557636
--
Desert Piranha
------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread:
http://www.excelforum.com/showthread...hreadid=557636