Spostare una userform senza borsi

Question

Buonasera gruppo. Ho bisogno di inserire un codice, credo nella userform stessa, che mi permetta di poterla spostare con il mouse. La userform è stata privata di tutto il bordo (barra titoli e bordo inferiore) per motivi estetici. Ho letto che è possibile spostarla ugualmente con il mouse inserendo un codice nella userform ma non riesco a capire come :(

Answer 1

Ciao mirco68,

Da errore,,,, ho provato ad inserire il codice sia nella userforn che nel modulo dove andava ad eliminare i bordi della userform tramte richiamo della stessa. il codice evidenzia delle righe rose (presumo errori), e poi un'altra  cosa che ho notato e che inserendola sia nella userform che nel modulo non si "sgancia dai codici che la precedono come se lo script continuasse 

Devo metterlo in un nuovo modulo? se si poi come la richiamo dalla userform?

Grazie x l'aiuto

AGGIORNAMENTO.

ho dovuto cambiare solo le righe di Private sub userform suggerite dal vba stesso. (forse interpretava male il codice). Ora funziona

Grazie Norman :)

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Per chiudere questo thread, vorrei chiederti gentilmente di contrassegnare la mia risposta come Risposta. In questo modo, tu aiuterai anche coloro che potessero cercare soluzioni ai problemi simili negli archivi della Community.

===

Regards,

Norman 

Answer 2

Da errore,,,, ho provato ad inserire il codice sia nella userforn che nel modulo dove andava ad eliminare i bordi della userform tramte richiamo della stessa. il codice evidenzia delle righe rose (presumo errori), e poi un'altra  cosa che ho notato e che inserendola sia nella userform che nel modulo non si "sgancia dai codici che la precedono come se lo script continuasse 

Devo metterlo in un nuovo modulo? se si poi come la richiamo dalla userform?

Grazie x l'aiuto

AGGIORNAMENTO.

ho dovuto cambiare solo le righe di Private sub userform suggerite dal vba stesso. (forse interpretava male il codice). Ora funziona

Grazie Norman :)

Answer 3

Grazie....la provo subito

Answer 4

Ciao mirco68,

Buonasera gruppo. Ho bisogno di inserire un codice  credo nella userform stessa che mi permetta di spostarla selezionandola e spostandola con il mouse. La userform è stata lrivata di tutto il bordo con dei codici trovati su internet. Ho letto che è possibile spostarla semplicemente selezionandola (quindi attivando la userform) e spostarla con il mouse. Poi criccando sul foglio di lavoro la userform viene disattivata....non riesco a grovare il codice per fare questo :(

Dato che la tua userform non ha una barra del titolo, per renderla spostabile, nel modulo codice della Userform , incolla il seguente codice:

'=========>>

Option Explicit

Private m_sngDownX As Single

Private m_sngDownY As Single

'--------->>

Private Sub UserForm_MouseDown(ByVal Button As Integer, _

                               ByVal Shift As Integer, _

                               ByVal X As Single, _

                               ByVal Y As Single)

    If Button = 1 Then

        m_sngDownX = X

        m_sngDownY = Y

    End If

End Sub

'--------->>

Private Sub UserForm_MouseMove(ByVal Button As Integer, _

                               ByVal Shift As Integer, _

                               ByVal X As Single, _

                               ByVal Y As Single)

    If Button And 1 Then

        Me.Left = Me.Left + (X - m_sngDownX)

        Me.Top = Me.Top + (Y - m_sngDownY)

    End If

End Sub

'<<=========

===

Regards,

Norman