VFP 控制 EXCEL2003 之 003、真正的全屏显示数据

作者在 2018-09-17 18:50:38 发布以下内容
oExcel=CreateObject("Excel.Application")
WITH oExcel
    .WorkBooks.Add
    .DisplayFullScreen = .T.
    .CommandBars(1).Enabled = .F.
    .CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow"
    WITH .ActiveWindow
        .DisplayHeadings = .F.
        .DisplayHorizontalScrollBar = .F.
        .DisplayVerticalScrollBar = .F.
        .DisplayWorkbookTabs = .F.
    ENDWITH 
    * 取消全屏显示 *
    .DisplayFullScreen = .F.
    .CommandBars(1).Enabled = .T.
    .CommandBars("Full Screen").Reset
    WITH .ActiveWindow
        .DisplayHeadings = .T.
        .DisplayHorizontalScrollBar = .T.
        .DisplayVerticalScrollBar = .T.
        .DisplayWorkbookTabs = .T.
    ENDWITH 
    .Visible = .T.
ENDWITH 
Excel问题 | 阅读 1480 次
文章评论,共0条
游客请输入验证码
浏览339365次