Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna a resolução horizontal de vídeo, em pixels. Long somente leitura.
Sintaxe
expression. HorizontalResolution
Expressão Uma variável que representa um objeto 'System'.
Exemplo
Este exemplo exibe a resolução de tela atual (por exemplo, "1024 x 768").
Dim lngHorizontal As Long
Dim lngVertical As Long
lngHorizontal = System.HorizontalResolution
lngVertical = System.VerticalResolution
MsgBox "Resolution = " & lngHorizontal & " x " & lngVertical
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.