rows height

  • Thread starter Thread starter bong
  • Start date Start date
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 :
 
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
 
Back
Top