Results 1 to 3 of 3
  1. #1
    Join Date
    Aug 2003

    Question Unanswered: Make cell perfectly square

    What are the cell height and width for making a cell perfectly square? The closest I can seem to get is width=3, height=15.

  2. #2
    Join Date
    Mar 2004
    Greenville, SC
    We use a for for drawing. I came up with 2.88 by 20.5. We have graph paper that I compared it to.
    Gotta to do some code

  3. #3
    Join Date
    Oct 2003
    You can use this VBA 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
    old, slow, and confused
    but at least I'm inconsistent!

    (retired Excel 2003 user, 3/28/2008)

    How to ask a question on forums

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts