excel獲取屏幕分辨率的VBA代碼

excel獲取屏幕分辨率的VBA代碼

用下面的代碼可以獲取屏幕分辨率，需將其放入模塊中運(yùn)行。

1.按Alt+F11打開VBA編輯器。

2.單擊菜單“插入→模塊”，在模塊中輸入下列代碼并運(yùn)行：

Declare Function GetSystemMetrics32 Lib "user32" _Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub DisplayMonitorInfo()Dim X As Long, Y As LongX = GetSystemMetrics32(0) ‘ 寬度（像素）Y = GetSystemMetrics32(1) ‘ 高度（像素）MsgBox "屏幕分辨率為：" & X & " × " & Y & " 像素"End Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。