yakınlaştırma

[feridun58]

yakınlaştırma yı tüm excel dosyalarımda %100 değilde % 110 olsun istiyorum bunu otomatik nasıl yapabilirim ?

 

[mraltin]

Sn.Feridun58 oncelikle aramiza hosgeldiniz.
Basliginizi Excel icin Ornek Calismalar ve Linkler kismina degil Excele yeni baslayanlara acmaniz gerekiyordu.
Modul kodu(İstediginiz olaya yada commatbutona yazabilirsiniz)
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = Array(120, 144)
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperFanfoldUS
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 110
.PrintErrors = xlPrintErrorsDisplayed
End With

 

[mraltin]

Yukaridaki kodlarda Sayfa yapisi ozellikleri vardir.
Siz burada Zoom kismina istediginiz rakami yazarak yakinlastirma yapabilirsiniz.

 

[feridun58]

Kusura bakmayın arkadaşlar;
bende mesajı gönderdikden sonra farketim yanlış gönderdiğimi
ilginize tşk edrim. :arkadas:

 

[feridun58]

ben bunu başaramadım arkadaşlar daha kolay yolu yok mu

tşkler

 

[Kemal Demir]

umarım eklki dosya ısıne yarar

 

[Kemal Demir]

sn. feridun58

İlave bazı seyler var bunlarıda yazarsanız daha sağlıklı çalışır

kodların yeni hali:

Private Sub CommandButton1_Click()
If TextBox1.Value > 400 Or TextBox1.Value < 10 Then
MsgBox ("Girdiğiniz Değer Ã?lçek Değerinde Azdır/Fazladır")
TextBox1.Value = ""
TextBox1.SetFocus

End If
Exit Sub
ActiveWindow.Zoom = TextBox1.Value
TextBox1.Value = ""
TextBox1.SetFocus



End Sub


Umarım Istedıghın bole birşeydi

 

[Kemal Demir]

ya ben uçmusum
en iyisimi sen bunu kullan :lol: :hihoho:

Private Sub CommandButton1_Click()
ActiveWindow.Zoom = TextBox1.Value
TextBox1.Value = ""
TextBox1.SetFocus
End Sub