OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > Corel DESIGNER > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 18-05-2010, 17:12
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default 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
Reply With Quote
  #2  
Old 18-05-2010, 17:44
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

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
Reply With Quote
  #3  
Old 18-05-2010, 18:27
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default SetOutlineProperties

You just need to add a zero, then the shaperange will have no outline.
Code:
dup1.SetOutlineProperties 0
-Shelby
Reply With Quote
  #4  
Old 18-05-2010, 19:05
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 165
Default

Quote:
Originally Posted by shelbym View Post
You just need to add a zero, then the shaperange will have no outline.
Code:
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
Reply With Quote
Reply


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

Advanced Search
Display Modes

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 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 23-06-2010 00:34
Shape: Back of Page dear CorelDRAW/Corel DESIGNER VBA 4 21-02-2008 17:50
Create Ellipse with Fill & NO Outline dungbtl CorelDRAW/Corel DESIGNER VBA 3 10-11-2007 11:31
GIF Animated back color ? erratic Trebly General 0 13-08-2007 18:48
Selecting an item at the back ozambersand General 3 02-06-2005 18:56


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


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com