View Single Post
Old 03-11-2004, 05:49
Posts: n/a
Default nonproportional sizing/scaling

Dim s1 As Shape
Set s1 = ActiveLayer.CreateRectangle(1.819732, 9.217031, 6.447984, 3.054413)
s1.Outline.SetProperties 0.003, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), False, False, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100
ActiveDocument.ReferencePoint = cdrCenter
'this is without "nonproportional 'sizing/scaling
s1.SetSize 4.724409, 6.496063
'and this is with "nonproportional 'sizing/scaling
s1.SetSize 5.905512, 8.120079

as you see the codes above, it is writin second value (with nonproportional "s1.SetSize 5.905512, 8.120079"after comma) for my opinion it shouldn't write a value. cause i give a first value "5.905512" by pressing "nonproportional sizing/scaling" button and it have to give second value automatically isn't it? thanx much for answer...
Reply With Quote