难道真没有哪位大神能够帮忙解决这个调整工作薄窗口大小的问题？

王南帅

各位大神，你们好，小弟现想对工作薄窗口大小实现这么一个效果。就是当转换到sheet1的时候，使得当前工作表窗口和工作薄窗口一样大。我用了录制宏的方法，均未奏效。也用了Activewindow.windowstate=xlmormal，但这一句只能对当前工作表窗口有效，而对当前工作薄窗口无效。所以特来请教该怎样到达这样一种效果？谢谢各位
这是程序运行前的窗口状态
这是我所想用程序运行达到的一种窗口状态。能够实现吗？

LangQueS

建议录制宏……

王南帅

LangQueS 发表于 2013-7-8 21:23
建议录制宏……

这位兄弟，录制宏达不到效果的

crazy0qwer

王南帅 发表于 2013-7-8 21:27
这位兄弟，录制宏达不到效果的

不明白你要什么效果.
窗口就有工作簿的窗口，还有excel的窗口了。工作表就是在工作簿窗口里面啊。

上几张图看看你要的效果？

jsxjd

“使得当前工作表窗口和工作薄窗口一样大。”
工作表窗口 还能和 工作薄窗口 不一样大吗？

都被搞糊涂了。

王南帅

早上好，各位大神，我已经把图贴出来了，望给予指点

wkspeaker

试试看这个
    Application.Width = 681.75
    Application.Height = 452.25

王南帅

wkspeaker 发表于 2013-7-9 08:48
试试看这个
    Application.Width = 681.75
    Application.Height = 452.25

我试了，好像不行，有别的办法吗

crazy0qwer

王南帅 发表于 2013-7-9 09:24
我试了，好像不行，有别的办法吗

只能是粗略调整，

1. Sub AAA()
   
2.     Application.ScreenUpdating = False
   
3.     Application.Left = ActiveWindow.Left + Application.Left
   
4.     Application.Width = ActiveWindow.Width
   
5.     ActiveWindow.WindowState = xlMaximized
   
6. End Sub

复制代码

如果要还原，可在调整前记录application 的 left  top  width  height  四个属性，

王南帅

crazy0qwer 发表于 2013-7-9 09:33
只能是粗略调整，如果要还原，可在调整前记录application 的 left  top  width  height  四个属性，

我把代码复制进去后，系统提示：方法"left"作用于对象application时失败