如何根据屏幕分辨率自动调整图表满屏显示？

chenjun

以下是引用hsbmichael在2005-3-27 19:54:00的发言：

版主:

我的“工具》选项》图表”中设置“图表大小随窗口调整”。的“图表大小随窗口调整”是灰色的无法修改。

请解答!!!!!

多谢

要先有一个图表工作表，才能修改这个选项。

chenjun

以下是引用FENGJUN在2005-3-29 10:44:00的发言： >

对不起，5楼所传文件有误，重新上传（只适用于“图表工作表”）：

调用API函数真正实现全屏显示好！给个精华。

tttiansen

挺好玩的，不过卡巴斯基好像当作病毒要报警的！

rligong

用什么函数？谢谢！

zhuguang419

EXCEL中 VB下 新建一个 模块  输入以下内容：
'此模块的作用在于根据系统分辨率设置显示窗口,自动调整显示比例
'目前仅适用800*600与1024*768两种情况
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
   
Public Sub DisplaySeting()
    Dim intZoom As Integer
   
    Select Case GetSystemMetrics(SM_CXSCREEN)
        Case 800
            intZoom = 78
        Case Is >= 1024
            intZoom = 100
        Case Else
            intZoom = 100
    End Select
   
    ActiveWindow.Zoom = intZoom

End Sub


说明 ：本人菜鸟  代码转载