Satır, sütun genişliği ölçü birimini değiştirmek

[MimRa]

Merhaba arkadaşlar.

Bir excel sayfasındaki satır ve sütunların genişliğini piksel olarak değildi cm yada mm olarak ayarlamam gerekiyor. Bu değişikliği nasıl yapabilirim..?

Teşekkürler.

 

[Exelans]

Arama motorunu kullanırsanız çözüm bulursunuz. Daha önceden aynı problemle ben de karşılaşmıştım.

 

[serbestmali]

forumda daha önce bu konuda bilgi vardı iyi araştırısan bulursun

 

[serbestmali]

hatırladığım kadarıyla şöyle bir macro vardı

Sub satir()
Dim yukseklik As Single, mevcut As Single, text As String, cevap As String
'mevcut satır yüksekliğini bul
mevcut = Selection.RowHeight / 29.5
'mesaj içriğini hazırla
text = "Mevcut satır yüksekliği: " & Format(mevcut, "###0.00 cm") & Chr(13) & "Yeni satır yüksekliğini girin (cm):"
'InputBox göster
cevap = InputBox(text, "Yeni satır yüksekliği belirle", Format(mevcut, "###0.00"))
'cevaba göre yeni satır yüksekliği değiştir
If cevap <> "" Then



yukseklik = CSng(cevap)
Selection.RowHeight = yukseklik * 29.5
End If
End Sub

Sub sutun()
Dim genislik As Single, mevcut As Single, text As String, cevap As String
'mevcut sütun genişliğini bul
mevcut = (Selection.ColumnWidth + 0.71) / 5.1425
'mesaj içriğini hazırla
text = "Mevcut satır genişliği: " & Format(mevcut, "###0.00 cm") & Chr(13) & "Yeni sütun genişliğini girin:"
'InputBox göster
cevap = InputBox(text, "Yeni satır genişliğini girin (cm)", Format(mevcut, "###0.00"))
'cevaba göre yeni sütun genişliğini değiştir
If cevap <> "" Then
genislik = CSng(cevap)
Selection.ColumnWidth = -0.71 + 5.1425 * genislik
End If
End Sub

FORUMUN KATKILARIYLA