Boa tarde,
Estou criando um Dashboard no qual ao executar o Excel um userform é aberto, maximizado e o Excel é oculto. Meu código funciona perfeitamente para um PC com apenas um monitor.
Ao usar um PC com dois monitores o VBA abre o userform no monitor principal, porém para maximizar ele pega as informações do monitor no qual o Excel estava aberto.
Alguém sabe como fazer o VBA identificar em qual monitor o Excel está aberto e abrir o userform nesse monitor?
'Set the Windows style so that the userform has a minimise and maximise button
lngCurrentStyle = GetWindowLong(lngHWnd, GWL_STYLE)
lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX 'Or WS_MAXIMIZEBOX
lngNewStyle = lngNewStyle And Not WS_VISIBLE And Not WS_POPUP 'And WS_MINIMIZEBOX
SetWindowLong lngHWnd, GWL_STYLE, lngNewStyle
'Set the extended style to provide a taskbar icon
lngCurrentStyle = GetWindowLong(lngHWnd, GWL_EXSTYLE)
lngNewStyle = lngCurrentStyle Or WS_EX_APPWINDOW
SetWindowLong lngHWnd, GWL_EXSTYLE, lngNewStyle
ShowWindow lngHWnd, SW_SHOW
'Remove a barra superior
HideTitleBar Me
'Maximiza o formulário
With Me
.StartUpPosition = 1
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
OBS: Não vou postar aqui o código completo por não ser um código muito complexo, porém, longo.
Obrigado a todos.