怎样可以不显示microsoft excel 的标题栏

gloria_64

求教一个怪需求：我们公司想做个滚动投影，想把EXCEL上面的数据直接投到屏幕上，但是不想显示microsoft excel 的标题栏，这个可以做到吗？

plxmm

全屏显示也不好？

elexy

全部隐藏吗?

Private Sub Workbook_Open()
   Application.ScreenUpdating = False '关闭屏幕刷新
Application.Visible = False '不显示excel界面

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = True '打开屏幕刷新
Application.Visible = True '显示excel界面

'ActiveWindow.Close
'只关闭当前Excel , 而不退出整个Excel

'Application.Quit
'退出整个Excel的宏是 Application.Quit
 'ThisWorkbook.Close'关闭不能结束线程

n = Workbooks.Count
If n = 1 Then
 Application.Quit
Else
 ThisWorkbook.Close
End If
Application.Visible = True '显示excel界面

论坛上一位朋友发的,试试

wangminbai

'//取得窗口样式位

Private Declare Function GetWindowLong _
    Lib "user32" _
    Alias "GetWindowLongA" ( _
        ByVal Hwnd1 As Long, _
        ByVal nIndex As Long) _
As Long

'//设置窗口样式位

Private Declare Function SetWindowLong _
    Lib "user32" _
    Alias "SetWindowLongA" ( _
        ByVal Hwnd1 As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) _
As Long

'//重绘窗体标题栏

Private Declare Function DrawMenuBar _
    Lib "user32" ( _
        ByVal Hwnd1 As Long) _
As Long

'//以下定义常数及变量

Private Const GWL_STYLE = (-16)                 '窗口样式

Private Const WS_CAPTION = &HC00000                  '  WS_BORDER Or WS_DLGFRAME

'//****************************************************************************************************************************************

Sub BtResume_Click()

    Dim Istype As Long

    '//取得窗口样式位

    Istype = GetWindowLong(Application.Hwnd, GWL_STYLE)

    '//窗体样式位: 原样式和标题栏

    Istype = Istype Or WS_CAPTION

    '//重设窗体样式位

    SetWindowLong Application.Hwnd, GWL_STYLE, Istype

    '//重绘窗体标题栏

    DrawMenuBar Application.Hwnd

End Sub

'//****************************************************************************************************************************************

Sub click1()

    Dim Istype As Long

    '//取得窗口样式位

    Istype = GetWindowLong(Application.Hwnd, GWL_STYLE)

    '//窗体样式位: 原样式无标题栏

    Istype = Istype And Not WS_CAPTION

    '//重设窗体样式位

    SetWindowLong Application.Hwnd, GWL_STYLE, Istype

    '//重绘窗体标题栏

    DrawMenuBar Application.Hwnd

End Sub

x4gEmoKb.rar (7.11 KB, 下载次数: 307)

2006-10-20 10:06 上传

点击文件名下载附件

[此贴子已经被作者于2006-10-20 10:06:08编辑过]

秦关明月

QUOTE:

以下是引用wangminbai在2006-10-20 10:05:16的发言：

向高手学习致敬!

hbzz159

太扯淡,你把窗口还原后看还是隐藏的不???说白了就是全屏显示,又把工具栏和菜单栏加上了.........