tam ekran ve tam ekrandan çıkış makrosu.

[ahmetozbey]

2 adet buton la "tam ekran" ve "tam ekrandan çık" yapmak istiyorum.
makrolarla nasıl yapabilirim acaba.

 

[Ali]

Butona aşağıdaki kodları ekleyin


Private Sub CommandButton1_Click()
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

 

[prodigy]

Private Sub CommandButton1_Click()
Application.DisplayFullScreen = True
End Sub

Private Sub CommandButton2_Click()
Application.DisplayFullScreen = False
End Sub

 

[Ali]

Sn ahmetozbey, benim verdiğim kodlar tek bir buton ile tam ekran yapar ve aynı tuşa basıldığında tekrar normal moda döner.Sn prodigy nin, verdiği kodlar iki butonla tam ekran yapar.

İki cevaptan hangisi işinize uygunsa kullanırsınız.Saygılar

 

[Tarkan VURAL]

Bir ihtimal dahaaa vaaaardı.... )

Private Sub CommandButton1_Click()
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Else
Application.DisplayFullScreen = True
End If
End Sub

Hangisi işinize yararsa..
Selamlar;

 

[ahmetozbey]

teşekkürler arkadaşlar yardımlarınız için sağolun

 

[icecure]

teşekkürler bende yararlandım böylelikle

 

[rebel_child]

istersenız dırek acılırken tam ekranda acabılırız. ısteyene kodları verırım

 

[Murat OSMA]

Lütfen kodları bizimle paylaşır mısınız ?

 

[Tongunc]

Butona aşağıdaki kodları ekleyin


Private Sub CommandButton1_Click()
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

Bu makro güzel ama tam ekran yapınca ekranın en altındaki Sayfa1, Sayfa2 yazan sekmeler de gidiyor. Bunlar görünecek şekilde düzenleyebilir misiniz?

 

[mustafa1205]

Sevgili Murat Hocam bende şu şekil kodlar mevcut işinizi görür mü?

Sub Autpen()
With Application
.ScreenUpdating = False
.CommandBars("toolbar list").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Cell").Enabled = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.WindowState = xlMaximized
End With
End Sub

Sub Auto_Close()
Application.WindowState = xlNormal
End Sub

 

[Tongunc]

Bu makro güzel ama tam ekran yapınca ekranın en altındaki Sayfa1, Sayfa2 yazan sekmeler de gidiyor. Bunlar görünecek şekilde düzenleyebilir misiniz?

Yukarıda sorduğum soru aşağıdaki linkte çözümlenmiştir.
http://www.excel.web.tr/f14/excel-sayfasyny-tam-ekran-yapma-t117002.html