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

Excel问题 | 2018-09-17 18:50:38 | 阅读 397 次 | 评论(0)
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 
文章评论,共0条
游客请输入验证码
浏览218782次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...