Tam Sayfa-normal Sayfa

[ANTALYA 01]

Merhabalar

Aşğaıdaki kodu kullanıyorum benim istediğim Sadece
dosya-Görünüm-Ekle-Biçim-Araçlar Kalsın
2 Kod istiyorum biri tam ekran biri normal ekran yapacak kod aşağıdaki gibi

Sub tamekran()
Application.DisplayFullScreen = True
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub


Sub normalekran()
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub

 

[alpi]

Tam ekran görünümüne geçmek için Görünüm/Tam Ekran ıkullanabilirsiniz.
Eğer bunu kodlarla yapmak istiyorsanız

Tam ekran yapmak için

Application.DisplayFullScreen = True

Normal ekran yapmak için

Application.DisplayFullScreen = False