cambio di focus tra applicazioni

[teto021162]

Salve a tutti,

nel mio lavoro ho aperto excel 2003 e il browser Opera.

Vorrei che in fondo ad una macro come ultima azione ci fosse un codice che portasse il browser Opera in primo piano.

Grazie a tutti

Teto

[Marius44]

Ciao
Sicuramente non ho capito ma se "minimizzi" il file Excel non ottiene quello che vuoi?

Ciao,
Mario

[teto021162]

Grazie della risposta ma vorrei potermi spostare sul browser Opera senza rimpicciolire il file perchè quando ritorno su excel non vorrei ritrovarmelo ad icona e doverlo ampliare ma lo vorrei pronto all'uso a pieno schermo.

[Anthony47]

Metti in un Modulo standard inizialmente vuoto questo codice:

Codice: Seleziona tutto

Option Explicit
'Api:
Private Declare Function apiGetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal Hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer
Private Declare Function apiGetWindow Lib "user32" Alias "GetWindow" (ByVal Hwnd As Integer, ByVal wCmd As Integer) As Integer
Private Declare Function apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Integer
Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal Hwnd As Long) As Long

 
Function SetWindow(ByVal myWinCap As String) As Boolean
Dim wStrLen As Long, Rispo
Dim wHandle As Long
Dim wHandleLen As Long
Dim cTxt As String * 255
    wHandle = apiGetWindow(apiGetDesktopWindow(), 5)
    Do While wHandle <> 0
        wStrLen = apiGetWindowText(wHandle, cTxt, 255)
        If InStr(1, cTxt, myWinCap, vbTextCompare) > 0 Then
            Rispo = SetForegroundWindow(wHandle)
            SetWindow = True
            Exit Do
        End If
        wHandle = apiGetWindow(wHandle, 2)
    Loop
End Function


Poi da una tua macro puoi chiamare la funzione SetWindow con questa sintassi:

Codice: Seleziona tutto

wSet = SetWindow("ParteDell'intestazioneDellaFinestraDesiderata")


Dichiara wSet come una variabile Boolean, e controlla che il risultato della call sia True, cosa che indica la corretta selezione della finestra

Tieni presente che non tutte le impostazioni di sicurezza di un Pc consentono di attivare una finestra che non sia parte o figlia dell'applicazione in corso; e' un vincolo di sicurezza.

Ciao

[teto021162]

Perfetto Anthony,
funziona tutto alla grande
Grazie
Teto