Pergunte aqui
0

Macro para saber resolução atual do computador Calc

perguntadas 2019-06-04 19:45:03 +0200

imagem do gravatar de Júnio Vieira

updated 2019-06-05 16:54:27 +0200

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

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2019-06-04 20:52:23 +0200

updated 2019-06-04 21:34:34 +0200

Ola @Júnio Vieira, 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:http://www.vbaexpress.com/kb/getarticle.php?kb_id=32


ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

Bom dia, obrigado funcionou exatamente como eu precisava.

imagem do gravatar de Júnio VieiraJúnio Vieira ( 2019-06-05 16:03:24 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-06-04 19:45:03 +0200

Lidas: 12 vezes

Última atualização: Jun 04