vba to find Screen size in 64bit environment

[Giordano Bruno]

Hi all. Can someone show me how to get the screen metrics when using a 64bit version of Excel i.e. where do I use "long" and where do I use

 

[RoryA]

If you're using the GetSystemMetrics API call, none of the variables change type. You just need to add the PtrSafe attribute.

 

[Giordano Bruno]

Like this?

Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal Index As Long) As Long
Private Const SM_CXSCREEN As Long = 0
Private Const SM_CYSCREEN As Long = 1
Public Sub ShowScreenDimensions()
   Dim X As Long
   Dim Y As Long
   X = GetSystemMetrics(SM_CXSCREEN)
   Y = GetSystemMetrics(SM_CYSCREEN)
End Sub

 

[RoryA]

Yes, exactly like that, but with code tags of course.

 

[Giordano Bruno]

Rory, you are a living national treasure. Many many thanks for your help it is much appreciated. And I felt bad about the missing code tags, but obviously not bad enough to do anything about it. I will try to do better next time.

 

[RoryA]

Rory, you are a living national treasure.

Or a Turing machine.

Glad to help.