excel uygulamasını userformun boyutuna eşitleme

[Ayşavkı]

herkese merhaba.arkadaşlar excel uygulamasını açmak için tıkladığımda ekte göndermiş olduğum dosyada açılan userformun boyutuna otomatik getirilebilirmi? exceli gizlemeden userformu hareket ettirdiğimde uygulamayı görmek için.yani dosyayı açmak için tıklayacağım uygulama userformun boyutuna gelecek mümkünmüdür? şimdiden ilgileriniz için teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub Auto_open()
    With UserForm1
      .Height = 300
      .Width = 400
        With Application
            .WindowState = xlMaximized
            X1 = .Height - 300
            X2 = .Width - 400
            .WindowState = xlNormal
            .Left = X2 / 2
            .Top = X1 / 2
            .Height = 300
            .Width = 400
        End With
      .Show
    End With
End Sub

 

[Ayşavkı]

sayın korhan bey! geri dönüş hususunda geciktiğim için özür dilerim. verdiğiniz kodu denedim sorun gözükmemekte.ilginiz için tekrar teşekkür eder saygılar sunarım