[已解决]控件如何自动适应屏幕分辨率

一剑惊心

我在EXCEL中利用控件插入FLASH，但需要在不同分辨率的电脑上使用，应该如何书写代码，使该控件的尺寸大小自动适应屏幕分辨率！

最佳答案

月排行榜 / 总排行榜

amulee

2010-4-16 10:46

Sub Test()
    Application.WindowState = xlMaximized   '将程序最大化
    appWidth = Application.Width            '获取程序的尺寸
    appHeight = Application.Height
    MsgBox "当前Excel的尺寸:" & vidWidth & "x" & vidHeight
End Sub

跳转到最佳答案楼层

吕?布

以下代码获取显示器分辨率

 

Option Explicit

Private Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub 检索显示分辨率信息()
    Const SM_CXSCREEN = 0
    Const SM_CYSCREEN = 1
    Dim vidWidth As Long, vidHeight As Long

    vidWidth = DisplaySize(SM_CXSCREEN)
    vidHeight = DisplaySize(SM_CYSCREEN)
    MsgBox "显示分辨率为:" & vidWidth & "x" & vidHeight
End Sub

amulee

Sub Test()
    Application.WindowState = xlMaximized   '将程序最大化
    appWidth = Application.Width            '获取程序的尺寸
    appHeight = Application.Height
    MsgBox "当前Excel的尺寸:" & vidWidth & "x" & vidHeight
End Sub