1.VBA 基础 - 爱码网

\'修改标题
sub SetCaption()
　　Application.Caption = "修改Excel标题内容"    \'总窗口标题
　　ActiveWindow.Caption = vbNullString        \'当前窗口标题（开多个Excel文档，每个文档为一个窗口）
end sub


\'窗口最大化
sub MaximizedWin()
　　Application.WindowState = xlMaximized      \'总窗口标题 最大化
　　ActiveWindow.WindowState = xlMaximized     \'当前窗口最大化　　　　xlMaximized 最大化；  xlNormal 正常；  xlMinimized 最小化。     

end sub        

Application.DisplayFullScreen = True     \'全屏显示（隐藏标题栏、工具栏）
Application.Visible = False              \'隐藏Excel主窗口（可以同时显示其他窗体）
Application.Left = 1000                  \'从屏幕左边界至Excel主窗口左边界的距离（只有当Application.WindowState=xlNormal时才可使用）
Application.Top = 1000                   \'从屏幕顶端到Excel主窗口顶端的距离    （同上）
\'隐藏主窗口在任务栏中不会显示，而使用Left或Top则Excel仍会在任务栏中显示应用程序窗口按钮。

\'限定工作窗口大小
sub SetGameWindow()
　　Dim UsedW as Single, UsedH as Single
　　Dim ViewRange as Range
　　Set ViewRange = Range("A1:I9")
　　With ActiveWindow
　　　　.DisplayHeadings = False             \'不显示行列号
　　　　.DisplayHorizontalScrollBar = False  \'不显示水平滚动条
　　　　.DisplayVerticalScrollBar = False    \'不显示垂直滚动条
　　　　.DisplayWorkbookTabs = False         \'不显示工作标签
　　　　.WindowState = xlNormal
　　　　UsedW = .Width - .UsableWidth        \'获得窗口左右边框宽度
　　　　UsedH = .Height - .UsableHeight      \'获得窗口上下边框（含标题栏）高度
　　　　.Width = ViewRange.Width + UsedW     \'设定窗口宽度（固定单元格+边框）
　　　　.Height = ViewRange.Height + UsedH   \'设定窗口高度（固定单元格+边框+标题栏）
　　　　.ScrollRow = 1                       \'滚动窗口到第1行
　　　　.ScrollColumn = 1                    \'滚动窗口到第1列
　　　　.ActiveSheet.ScrollArea = ViewRange.Address　　\'设定允许滚动区域
　　　　.EnableResize = False                \'禁止调整窗口大小
　　end with
end sub