Userfom a 2 dimensioni

Hai un problema con Excel?

Nuova discussione

Userfom a 2 dimensioni
di paganiva (utente non iscritto) data: 26/10/2016 00:32:52
Buonasera a tutti
Ho svariato nel forum trovando varie discussioni, quindi ho cercato di adattare i codici, ma non ci sono riuscito.
In un foglio apro una Userform, quindi tramite un ToggleButton vorrei variare la sua dimensione dalla iniziale a tutto scermo e tornare a quella iniziale.
Spero di essermi spiegato.
Allego file
Grazie e saluti

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
' Visualizzazione userform a tutto schermo
'dimensioni iniziali
CuH = Scheda.Height
CuW = Scheda.Width
'Resize Form
Scheda.Top = Application.Top
Scheda.Left = Application.Left
Scheda.Width = Application.Width
Scheda.Height = Application.Height
'Resize contenuto
ZoW = Scheda.Width / CuW
ZoH = Scheda.Height / CuH
'calcola zoom
If ZoW < ZoH Then RZoom = ZoW Else RZoom = ZoH
Scheda.Zoom = RZoom * 100

Else
MsgBox "Tornare alle misure iniziali Altezza 500 - Larghezza 400"
End If
End Sub

di Michelangelo (utente non iscritto) data: 26/10/2016 01:39:06
Prova così altrimenti bisogna attivare i pulsanti ridiminsiona e riduci a icona

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then

 With Application
        Me.Top = .Top
        Me.Left = .Left
        Me.Height = .Height
        Me.Width = .Width
    End With

Else

With Application
        Me.Top = 150
        Me.Left = 300
        Me.Height = 500
        Me.Width = 400
  End With
End If
End Sub

di paganiva (utente non iscritto) data: 26/10/2016 14:04:28
Saluti a tutti.
Grazie Michelangelo, per le mie necessità va più che bene, ho soltanto adeguato il posizionamento dal margine superiore del PC.
Ciao e alla prossima

Vuoi Approfondire?