rows height

[bong]

Hi all

How I can calculate and set the rows height (as for collumn function CELL)

bong

 

[isabelle]

hi bong,

i'm not sure that i understand your request
maybe:

Range("A1").RowHeight = Range("A1").ColumnWidth

isabelle

Le 2013-09-20 02:22, bong a écrit :

 

[isabelle]

maybe you try to make a square

Sub make_a_square()
Dim WPChar As Double
Dim DInch As Double
Dim Temp As String

Temp = 10 '----> mm
DInch = Val(Temp) / 25.4
If DInch > 0 And DInch < 2.5 Then
i = 0
For Each col In ActiveWindow.RangeSelection.Columns
i = i + 1
If i = 1 Then
col.EntireColumn.AutoFit
WPChar = col.Width / col.ColumnWidth
End If
col.ColumnWidth = ((DInch * 72) / WPChar)
Next col
For Each lig In ActiveWindow.RangeSelection.Rows
lig.RowHeight = (DInch * 72)
Next lig
End If
End Sub

isabelle

 

[bong]

thanks

you gave me an idea

bong