How can I create a graphic form in Excel with squares? (Same Height & Width)

  • Thread starter Thread starter Thomas
  • Start date Start date
T

Thomas

I am trying to use Excel to print a new layout for our
warehouse in a scale. If I can have perfect squares then
it will be very easy to use the form as my graphic paper.
The problem is that I do not know how can I set up the
equivalence of the dimensions for the cells height and
width because they run in a different scale.
 
Thomas, here is a macro I picked up that might help you, select the area you
want and then run it

Sub MakeSquare()
Application.ScreenUpdating = False
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
Application.ScreenUpdating = True
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
 
Paul,
The macro changed the format to squares in the screen but
in the printed-paper there is a rectangle. Maybe there is
a problem with the resolution of the printer vs the
monitor as "Gord Dibben" mentioned in his answer.
I need more than any other thing printed squares to show
the pictures at scale. Looks like Excel was not designed
to have a precise control of what you print. I am in
square one again.
Thanks.
 
Thomas, I get squares on the screen and squares on the printed paper
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
 
Back
Top