Userfom background picture size function

[asyamonique]

Hello,
I have a userform which Height"1080" , Width"1920" and with below code when its populated if I run the whole code, the background picture doesn't fit at the screen even though picture size is 1080*1920. The reason of that size is I'm going to use that userform at the big screen tv.
Is there any way to fix that problem.
Thanks

Private Sub UserForm_Initialize()

With Application
.WindowState = xlMaximized
'Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With
End Sub

 

[Logit]

.
Here is on method :

Private Sub ToggleButton1_Click()
    
    If Me.ToggleButton1.Value = True Then
        Me.Height = 50
        Me.Width = 50
        Me.Top = 450
        Me.Left = 0
        Me.ToggleButton1.Left = 0
        Me.ToggleButton1.Top = 0
        Me.ToggleButton1.Caption = "Maximize"
    Else
        Me.Height = Application.Width
        Me.Width = Application.Width
        Me.Top = 0
        Me.Left = 0
        Me.ToggleButton1.Left = 900
        Me.ToggleButton1.Top = 6
        Me.ToggleButton1.Caption = "Minmize"
    End If


End Sub




Private Sub UserForm_Activate()




Application.WindowState = xlMaximized


Me.Height = Application.Height
Me.Width = Application.Width
Me.ToggleButton1.Left = 950




End Sub

Download sample workbook : https://drive.google.com/file/d/1lejxrnhEB9lUjJPUgCGvfVhnqZhM-hx-/view

 

[asyamonique]

Hi,
I need to place the code on UserForm_Initialize module.

 

[Logit]

You can do that also. That way it will autorun when the form is opened.

 

[asyamonique]

No I couldn't make it.