Tam ekran yapmak

[ormann]

Sayın arkadaşlar ekteki göndermiş olduğum dosyamdaki veri girişi bölümünü(ana sayfayı) nasıl tam ekran yapabiliriz.yani tüm araç çubukları ve menülerin tamamı gözükmeyecek .yardımlarınızı bekliyorum

 

[İhsan Tank]

merhaba
Tam ekran için:

Sub tam() 
Application.DisplayFullScreen = True 
End Sub

Normal görünüm için:

Sub normal() 
Application.DisplayFullScreen = False 
End Sub

bu kodları denermisiniz
not : kodlar alıntıdır.

 

[halit3]

Sayın arkadaşlar ekteki göndermiş olduğum dosyamdaki veri girişi bölümünü(ana sayfayı) nasıl tam ekran yapabiliriz.yani tüm araç çubukları ve menülerin tamamı gözükmeyecek .yardımlarınızı bekliyorum

ekli dosyanızı kontrol ediniz.

 

[ReBiwAr]

Sanırım aradığınız kod aşağıdaki şekildedir.

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

 

[ormann]

sayın arkadaşlar hepinize teşşekür ederim tam istediğim şekilde olmuş ellerinize sağlık

 

[İhsan Tank]

sayın arkadaşlar hepinize teşşekür ederim .... ellerinize sağlık

rica ederim iyi çalışmalar

 

[ormann]

sayın halit hocam ekteki dosyama sizin tam ekran yapmak için vermiş olduğunuz kodları yapıştırdım.manuel olarak oluyo.fakat sayfayı açtığımda otamatik olarrak tam ekran moduna geçmiyo.bunun başka bir yolumu var.bunu dosyama uygulayabilirmisiniz.birde sizden ricam nasıl yapıldığını anlatabilirmisiniz.saygılar

 

[ReBiwAr]

kodları worbook open olayına yazacaksınız...

iyi çalışmalar

 

[ormann]

yapamadım.yardımcı olurmusunuz:

 

[Erhan Üstünel]

şöyle bişi mi olmasını istedin ?

 

[ormann]

ben dosyayı açtığımda otamatik olarak tam ekran moduna geçmesini isitiyorum.manuel olarak değil

 

[İhsan Tank]

ben dosyayı açtığımda otamatik olarak tam ekran moduna geçmesini isitiyorum.manuel olarak değil

merhaba
ek'li dosyada sayfa2'ye tıklayarak denermisin.

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

 

[ormann]

ben örnek dosyamın halit hocanın nolu mesajındaki gibi yapılmasını istemiştim.saygılar.genede sizlere emek harcadığınız için çok teşekkür ederim.

 

[halit3]

sayın halit hocam ekteki dosyama sizin tam ekran yapmak için vermiş olduğunuz kodları yapıştırdım.manuel olarak oluyo.fakat sayfayı açtığımda otamatik olarrak tam ekran moduna geçmiyo.bunun başka bir yolumu var.bunu dosyama uygulayabilirmisiniz.birde sizden ricam nasıl yapıldığını anlatabilirmisiniz.saygılar

dosyandaki kodlar doğru yerde ancak kodların çalışması için "ThisWorkbook" içine aşağıdaki kodu ekleyiniz.

Private Sub Workbook_Open()
Özmenü
End Sub

burada dosyanız açıldığında Özmenü makrosu devreye giriyor.

 

[ormann]

Sayın hocam dediğiniz kodu kopyaladım fakat hata veri yo .rica etsem siz dosyaya uygulayabilirmisiniz.

 

[halit3]

Sayın hocam dediğiniz kodu kopyaladım fakat hata veri yo .rica etsem siz dosyaya uygulayabilirmisiniz.

dosyanızı kontrol ediniz.

 

[ormann]

çok teşekkür ederim elerinize sağlık

 

[halit3]

çok teşekkür ederim elerinize sağlık

iyi çalışmalar