求指点cdr宏修改对象长度的语句或将高度值设为缺省值的语句

154965

录制的CDR宏，目的是将选择的对象宽度改为250mm，录制出的宏却是宽度与高度一起修改，高度修改为0时是等比例变化，缺省值的写法我不知道，恳请论坛的前辈们能给予指点。
附上录制的语句
Sub L250()
    ' Recorded 2018/5/22
    ActiveDocument.Unit = cdrMillimeter
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    ActiveDocument.ReferencePoint = cdrMiddleLeft
    OrigSelection.SetSize 250, 0
End Sub

qjinyang

    ActiveDocument.Unit = cdrMillimeter
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    ActiveDocument.ReferencePoint = cdrMiddleLeft
    OrigSelection.SizeWidth = 250  
最改了最后一条

154965

qjinyang 发表于 2018-5-24 19:59
ActiveDocument.Unit = cdrMillimeter
    Dim OrigSelection As ShapeRange
    Set OrigSelection  ...

谢谢！这对我帮助很大，非常感谢！

小迷猪

哇塞好高级，求学习{:1_124:}