Satır Yüksekliklerinin ölçü değerlemesi

[saityazar]

arkadaşlar benim excelde satır yüksekliklerini 0,5 cm olarak ayarlamam gerekiyor bu 0,5 cm lik satırlara bazı değerler yazıp milimetrik kağıda çizili bir grafik var ona yapıştırmam gerekiyor yani ölçülerin tutması gerekiyor. nasıl yaptımsa olmadı bi yolu varmı acaba

[eXpert]

hımm işin zor, çünkü hücre boyutları pixel dir. yatayda ve dikeyde senin ekranındaki kaç pixelin 0,5 cm e denk geldiğini bulman gerekir, çeşitli boylarda kareler yapıp çıktısını alıp, sonrada cetvelle ölç, bu sayede bulabilirsin. kocakarı çözümü gibi oldu yaw :hiho:

[Hüseyin]

Sayın saityazar,
daha önce bu konuda bir kod yayınlamıştık. Adresi aşağıda:
http://www.excel.web.tr/viewtopic.php?t=210

Umarım işinize yarar.
Denedikte sonra sonucu bildirirseniz çok memnun olurum.

[eXpert]

Hüseyin bu kodlar kesin mi ??, Selection.RowHeight / 29.5 gibi bir sabit katsayı var, pixel ==> cm dönüşümünde sabit bir rakam yoktur.

[Haluk]

......., pixel ==> cm dönüşümünde sabit bir rakam yoktur.

Doğru....

800 X 600 çözünürlükteki bir ekranla 1024 X 768 çözünürlükteki bir ekranda, 1 pixelin değişik cm karşılığı olması gerekir.

Edit:
Konuyla ilgili bir link;

Aşağıdaki linkte onlyadrafter isimli üyenin kodunu kullanabilirsiniz.

http://www.eng-tips.com/viewthread.cfm?qid=81042

[jale]

Merhaba

Aşağıdaki linkten download edeceğiniz cetvellede ölçebilirsiniz, inch,pixel,cm,custom gibi seçenekleri var.

Cooler Ruler http://www.fabsoft.com/pages/Downloads/Downloads.htm#Cooler%20Ruler

[eXpert]

hehe program falan gerek yok yaw,
alırısın 2 dk çıktı ölçersin, 1 tane kağıdın ziyan olur altı üstü, herşeye program mı olur :eek:

[dumtisdumtis]

ben de bu sorunun cevabını araştırırken dediğini yapmıştım. Sonuç:
100px = 28mm
100px = 13,57 excel ölçü birimi (eski versiyonlar için, yenilerinde yazio zaten)
Kağıtlarınız ziyan olmasın

Xcm * (10/28) *13,57 = Y excel ölçü birimi

iki farklı yazıcıda denedim (HP1200, OKI 5200) ölçüler tuttu.

[LEVTEPE]

Sayın saityazar

Word'de bu işi kolaylıkla yapabilirsiniz.

[ase]

arkadaşlar ben excel'e yeni başladım . Formül uygulamalı örnek istiyorum

[oziyilmaz]

birde şöyle bir kod var

Sub MakeRuler_cm()

'Define the size of a new ruler.
Const Ruler_Width As Double = 16 'Width 16 cm
Const Ruler_Height As Double = 14 'Height 14 cm

'The setting size on the screen and the actual size on the printer.
Const Screen_Width As Double = 16
Const Screen_Height As Double = 14
Const Printer_Width As Double = 16
Const Printer_Height As Double = 14

Dim i As Long
Dim l As Long
Dim x As Long
Dim y As Long
Dim ws As Worksheet
Dim x2 As Double
Dim y2 As Double

x = Ruler_Width * 10
y = Ruler_Height * 10

Application.ScreenUpdating = False

Set ws = ActiveSheet
Worksheets.Add
ActiveSheet.Move
ActiveSheet.Lines.Add 0, 0, 3 * x, 0
For i = 1 To x
If i Mod 10 = 0 Then l = 5 Else: If i Mod 5 = 0 Then l = 4 Else l = 3
ActiveSheet.Lines.Add 3 * i, 0, 3 * i, 3 * l
Next
ActiveSheet.Lines.Add 0, 0, 0, 3 * y
For i = 1 To y
If i Mod 10 = 0 Then l = 5 Else: If i Mod 5 = 0 Then l = 4 Else l = 3
ActiveSheet.Lines.Add 0, 3 * i, 3 * l, 3 * i
Next
ActiveSheet.Lines.Border.ColorIndex = 55

For i = 10 To x - 1 Step 10
With ActiveSheet.TextBoxes.Add(3 * i - 9, 3 * 5, 18, 12)
.Text = Format(i \ 10, "!@@")
End With
Next
For i = 10 To y - 1 Step 10
With ActiveSheet.TextBoxes.Add(3 * 5, 3 * i - 9, 12, 18)
.Orientation = xlDownward
.Text = Format(i \ 10, "!@@")
End With
Next
With ActiveSheet.TextBoxes
.Font.Size = 9
.Font.ColorIndex = 55
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Border.ColorIndex = xlNone
.Interior.ColorIndex = xlNone
End With

With ActiveSheet.DrawingObjects.Group
.Placement = xlFreeFloating
.Width = Application.CentimetersToPoints(x / 10)
.Height = Application.CentimetersToPoints(y / 10)
.CopyPicture xlScreen, xlPicture
ActiveSheet.Paste
x2 = (Selection.Width - .Width) / 3
y2 = (Selection.Height - .Height) / 3
Selection.Delete
.CopyPicture xlPrinter, xlPicture
ActiveSheet.Paste
.Width = .Width * .Width / (Selection.Width - x2 * 2) * Screen_Width / Printer_Width
.Height = .Height * .Height / (Selection.Height - y2 * 2) * Screen_Height / Printer_Height
Selection.Delete
If Val(Application.Version) >= 9 Then
.Copy
ActiveSheet.PasteSpecial 'Format:="Picture (PNG)"
With Selection.ShapeRange.PictureFormat
.CropLeft = x2
.CropTop = y2
.CropRight = x2
.CropBottom = y2
End With
Selection.Copy
ws.Activate
ws.PasteSpecial 'Format:="Picture (PNG)"
Selection.Placement = xlFreeFloating
.Parent.Parent.Close False
End If
End With
Application.ScreenUpdating = True
End Sub