Ekran boyutuna göre hücre genişligi

[ikikan]

Ekran boyutuna göre hücre genişligi

Her yolu denedim her konu başlıgını aradım ama arkadaşlar; ekran boyutuna ve excel penceresine göre satır sütun ölceklendirmesi yapamadım ve bir kod bulamadım, elinde hazı kod olan veya bu konularda çalışma yamış olan arkadaşalr varsa yardımcı olabilirse sevinirim....

Bu konuların hepsini aradım yok, userform da var ama sayfada yok !!!!

ActiveWindow.Width
Application.UsableWidth
WorksheetFunction.Sum(ary)
Application.Width
Columns("A").Width
syf1.[A16].Width

valuePoints2 = Application.UsableWidth
valueInches2 = valuePoints2 / Application.InchesToPoints(1)
valueInches3 = valueInches2
valuePoints3 = Application.InchesToPoints(valueInches3)

ve api ler

ScrWidth = GetSystemMetrics32(0)
ScrHeight = GetSystemMetrics32(1)

 

[turist]

Örnek olarak;
Worksheets("Sayfa1").Range("A1:E1").Columns.AutoFit
ve
Worksheets("Sayfa1").Range("A1:A100").EntireRow.AutoFit

gibi denediniz mi?

 

[ikikan]

Onu ilk başta denedim; Ben veri girilince değil uygulama(excel)ekranı boyutuna göre boyutlanmasını istiyorum.

 

[turist]

Onu ilk başta denedim; Ben veri girilince değil uygulama(excel)ekranı boyutuna göre boyutlanmasını istiyorum.

Excel açıldığında Yazı (ve varsa şekil, buton vb) boyutlarını ve buna uyan satır ve sütun genişliklerini mi kastediyorsunuz?
Sayfada herhangi bir işlemle , ilk açılış şekli etkilenmeyecek mi?

 

[turist]

Deneyin, % leri (0.96) ve Hücre değerini(Range("Z1")) kendinize uyarlayabilirsiniz.

Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long
  Sub EkranaGore()
    Dim maxWidth As Long
    Dim myWidth As Long
    Dim myZoom As Single
    maxWidth = GetSystemMetrics(0) * 0.96
    myWidth = ThisWorkbook.ActiveSheet.Range("Z1").Left
    myZoom = maxWidth / myWidth
    ActiveWindow.Zoom = myZoom * 100
  End Sub

 

[turist]

Alternatif olarak; izleyin,işinize yarayabilir.

 

[ikikan]

Excel açıldığında Yazı (ve varsa şekil, buton vb) boyutlarını ve buna uyan satır ve sütun genişliklerini mi kastediyorsunuz?
Sayfada herhangi bir işlemle , ilk açılış şekli etkilenmeyecek mi?

Aslında Excel penceresi ölçeği değiştikce sayfadaki satır sütun ve objelerin buna göre boyutlanmasını istiyorum ...
Örnek : Tamekranken de farklı değilken farklı ölçeklendirme.