Resolución pantalla

Puedes averiguar la resolución actual de la pantalla con el siguiente código:

Public Declare Function apiGetSystemMetrics Lib "user32" Alias _
"GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Sub ResoluciónDePantalla()
Dim X As Integer, Y As Integer
X = apiGetSystemMetrics(SM_CXSCREEN)
Y = apiGetSystemMetrics(SM_CYSCREEN)
MsgBox "X: " & X & vbNewLine & "Y: " & Y
End Sub


Respecto a lo de cambiar la resolución, no creo que sea una buena idea (aunque cada uno sabe mejor que nadie lo que necesita). Ten en cuenta que Windows es un sistema operativo multitarea. Si cambias la resolución puedes complicar la ejecución de otros programas.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Duke" escribió en el mensaje news:1da901c52beb$9e1173e0$
Como se puede capturar la resolución de la pantalla
mediante una función o comando de Excel?

Se puede modificar está mediante código..?

Les agradezco cualquier información al respecto