Natavitev širine in višine stolpcev

[zvonem]

Zdravo! Ali kdo ve, če je v novem Excelu 2007 možno višino in širino celic nastaviti v merskih enotah in ne v pixlih in kako, če je možno?

[GoldZ]

Pozdravljeni,

V Excel 2007 je višina vrstic enaka kot pri ostalih verzijah, torej točke.

Mer v cm ni mogoče nastaviti?!

PS: 72pt = 2,54 cm

[BJ]

Nastavitv višine v mm je možna z naslednjo kodo, katero mi je nekoč psredoval "Admin"

Koda: Izberi vse

' Kodo je napisal Ole P. Erlandsen

Sub SetColumnWidthMM(ColNo As Long, mmWidth As Integer)
' changes the column width to mmWidth
Dim w As Single
    If ColNo < 1 Or ColNo > 255 Then Exit Sub
    Application.ScreenUpdating = False
    w = Application.CentimetersToPoints(mmWidth / 10)
    While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w
        Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1
    Wend
    While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w
        Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1
    Wend
End Sub

Sub SetRowHeightMM(RowNo As Long, mmHeight As Integer)
' changes the row height to mmHeight
    If RowNo < 1 Or RowNo > 65536 Then Exit Sub
    Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)
End Sub
'Makro za nastavi 3 vrstico v 3 koloni na 30mm višine in 150mm širine
Private Sub cmdMM_Click()
SetColumnWidthMM 3, 150
SetRowHeightMM 3, 30

End Sub

LPB