***UserForm di excel grande a tutto schermo***

[ProbePotter]

Buongiorno ed Auguri a Voi tutti di Buon Anno (first of all).
Avrei cortesemente necessità (per i miei lavori con VBA di excel) di sapere come si fa
ad estendere lo UserForm a tutto schermo. Intendo con dimensioni alla max misura.
Grazie, ciao.

[Anthony47]

Questo era rimasto indietro...

Prova a usare questo codice (ipotizza di lavorare sulla UserForm1):

Codice: Seleziona tutto

Private Sub UserForm_Activate()
CuH = UserForm1.Height      'dimensioni iniziali
CuW = UserForm1.Width
'Resize Form
UserForm1.Top = Application.Top
UserForm1.Left = Application.Left
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height
'
'Resize contenuto
ZoW = UserForm1.Width / CuW        'calcola zoom
ZoH = UserForm1.Height / CuH
If ZoW < ZoH Then RZoom = ZoW Else RZoom = ZoH
UserForm1.Zoom = RZoom * 100
'
End Sub

In questo modo la form, all’ apertura, viene ridimensionata e il suo contenuto zoommato ricoprendo esattamente la finestra di excel, qualsiasi sia la sua dimensione; eventualmente inserisci una Application.WindowState = xlMaximized all’ apertura del foglio con la form se vuoi avere sempre la dimensione massima.

Ciao.

[ProbePotter]

Grazie Anthony.