Duplicate, Move to Back , no fill, no outline

18-05-2010, 16:12

gorgo2

Senior Member

Join Date: Feb 2010

Posts: 106

Duplicate, Move to Back , no fill, no outline

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

Code:

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

« Previous Thread | Next Thread »

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts BB code is On Smilies are On [IMG] code is On HTML code is Off Forum Rules

Forum Jump

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and delete objects with no fill or outline	keytecstaff	CorelDRAW/Corel DESIGNER VBA	17	22-06-2010 23:34
Shape: Back of Page	dear	CorelDRAW/Corel DESIGNER VBA	4	21-02-2008 16:50
Create Ellipse with Fill & NO Outline	dungbtl	CorelDRAW/Corel DESIGNER VBA	3	10-11-2007 10:31
GIF Animated back color ? erratic	Trebly	General	0	13-08-2007 17:48
Selecting an item at the back	ozambersand	General	3	02-06-2005 17:56

All times are GMT -5. The time now is 10:10.