Macro para saber resolução atual do computador Calc

[JúnioVieira]

Boa tarde, alguém conhece alguma macro para saber a resolução atual do computador no calc.

[schiavinatto]

Ola @JúnioVieira, tenho em VBA, funcionando no Basic.

' Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
 
Private Sub Workbook_Open() 
          Call VerifyScreenResolution 
End Sub 
 
 Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long 
Const SM_CXSCREEN = 0 
Const SM_CYSCREEN = 1 
 
Sub VerifyScreenResolution(Optional Dummy As Integer) 
     
    Dim x  As Long 
    Dim y  As Long 
    Dim MyMessage As String 
    Dim MyResponse As VbMsgBoxResult 
     
    x = GetSystemMetrics(SM_CXSCREEN) 
    y = GetSystemMetrics(SM_CYSCREEN) 
    If x = 1024 And y = 768 Then 
    Else 
        MyMessage = "Sua resolução de tela atual é " & x & " X " & y & vbCrLf & "Este programa " & _ 
        "foi projetado para rodar com uma resolução de tela de 1024 X 768 e pode não funcionar corretamente " & _ 
        "com suas configurações atuais." & vbCrLf & "Deseja alterar a resolução da sua tela?" 
        MyResponse = MsgBox(MyMessage, vbExclamation + vbYesNo, "Resolução de tela") 
    End If 
    If MyResponse = vbYes Then 
        Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3") 
    End If 
     
End Sub 

fonte:VBA Express : Excel - Screen Resolution Check / Change

---

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[JúnioVieira]

Bom dia, obrigado funcionou exatamente como eu precisava.