Duplicate, Move to Back , no fill, no outline

[gorgo2]

I made this simple macro but for some reason the setoutline.properties does not give me an object with no outlines like it should. Can you find the glitch?
Thanks for your time.

-Greg

Private Sub CommandButton6_Click()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim dup1 As ShapeRange
    Set dup1 = OrigSelection.Duplicate
    dup1.ApplyNoFill
    dup1.SetOutlineProperties
    dup1.OrderToBack
    OrigSelection.ConvertToCurves
End Sub

[runflacruiser]

Hi.
Click with your mouse and put the cursor right after the letter s in properties for dup1.SetOutlineProperties.

Now press the space bar. You will see the code tip light up. Notice the square backets around each parameter. This means the parameter is optional. You can now press the comma on your keyboard until the parameter that you need to set becomes highlighted. Enter the correct property you need and don't add any additional commas. All of the params in this method are optional. Example:

dup1.SetOutlineProperties 0.003, , col1

Also any time you have a function you don't understand you can put the mouse cursor in it and press f1. This will bring up the help for corel's vba object model (or vba's if it is not corel specific). It will show the parameters for each function. Take special notice of what each function returns.
If it is a property then take special notice if it is read only or not. Ready only will only return a value, but you cannot set it.
For example:

dup1.outline.width = .003

You are setting this property to .003 which is hairline. This is not a reaady only property, so you can set it, or return it like this:

dim w as double
w = dup1.outline.width

Hope this helps.
-John

[shelbym]

You just need to add a zero, then the shaperange will have no outline.

dup1.SetOutlineProperties 0

-Shelby

[gorgo]

Originally Posted by shelbym

You just need to add a zero, then the shaperange will have no outline.

dup1.SetOutlineProperties 0

-Shelby

Haha. I had a feeling it was that simple. I learned a few things here from you two. Thanks.

P.S. - not sure why I posted this in Designer thread....user error.
-Greg