Square cells

The Idea Dude said:

Hi everyone,

Whats the ratio (width is to height) to get a perfect sqare cell.

So in other words, if I make a cell width 10, what height will I make the row to get a square cell ?

Thanks

Click to expand...

See,

http://www.experts-exchange.com/Manager/Applications/MS_Office/Q_10297832.html

THANKS for that

For anyone that looks at this thread, here is the code


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

Temp = InputBox("Height and width in inches?")
DInch = Val(Temp)
If DInch > 0 And DInch < 2.5 Then
For Each c In ActiveWindow.RangeSelection.Columns
WPChar = c.Width / c.ColumnWidth
c.ColumnWidth = ((DInch * 72) / WPChar)
Next c
For Each r In ActiveWindow.RangeSelection.Rows
r.RowHeight = (DInch * 72)
Next r
End If
End Sub

As an adjunct, here is some code to display the size of a cell:

Select the cell whose row height and column width you want to measure, and run one of the macros below. Code is placed in the Sheet module or in a General module. Many thanks to Andrew Poulsom, MrExcel message board.

'http://www.mrexcel.com/board2/viewtopic.php?t=53527