Alıntı:Sub auto_open()kırmızıya boyadığım yer
Sheets("ANA").Select
x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor
Y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor
ActiveWindow.Zoom = 70 * x / 1024
Application.DisplayFullScreen = True
Sheets("ANA").Select
End Sub
öncelikle paylaşım için teşekkürler lakin macroda bu sorun var