Buen día amigos,
Tengo un pequeño problema y espero me puedan ayudar.
Estoy programando una aplicación en excel con VB6 y necesito saber la resolución del monitor del usuario para poder centrar un formulario. Tengo este codigo.
Código:
Private Sub UserForm_Activate()
Dim Ancho As Integer
Dim Alto As Integer
linea = Selection.Row
If (Range("U" & linea).Value) <> "" Then
picContainer.Picture = LoadPicture(Range("U" & linea).Value)
showpicForm.Height = picContainer.Height
showpicForm.Width = picContainer.Width
Ancho = Screen.Width / Screen.TwipsPerPixelX
Alto = Screen.Height / Screen.TwipsPerPixelY
End If
End Sub
El problema esta en que me tira un error en la linea donde esta el ancho diciendo "Se requiere un objeto" ya he buscado por todo el foro y con dios google pero no he conseguido nada.
Aparte de esto la palabra Screen parece que no la reconocer pues si la dejo como screen asi se queda no se cambia la "S" por mayuscula.
Alguno de ustedes sabrá como solucionar esto?
Saludos.