OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 23-02-2006, 18:23
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,787
Blog Entries: 11
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 Fill.CopyAssign

Alex I have this example from you on how to do the new "virtual fills" in X3:
Code:
Sub ApplyFountainFill()
    Dim s As Shape
    Dim f As Fill
    Dim ff As FountainFill

    Set f = ActiveDocument.CreateFill()
    Set ff = f.ApplyFountainFill(CreateRGBColor(159, 100, 200),
CreateRGBColor(149, 109, 196), cdrLinearFountainFill, -126.469234, 0, 0, 50,
cdrCustomFountainFillBlend)
    With ff.Colors
        .Add CreateRGBColor(156, 100, 203), 1
        .Add CreateRGBColor(253, 255, 203), 16
        .Add CreateRGBColor(255, 154, 0), 29
        .Add CreateRGBColor(153, 103, 206), 45
        .Add CreateRGBColor(255, 154, 0), 70
        .Add CreateRGBColor(207, 106, 200), 87
        .Add CreateRGBColor(197, 112, 187), 99
    End With

    Set s = ActiveLayer.CreateRectangle(1.748465, 8.984898, 5.38863,
5.32748)
    s.Fill.CopyAssign f
End Sub
The question is can I do something similar to a shaperange? That would be really cool if I could. Thanks,

Shelby
Reply With Quote
  #2  
Old 23-02-2006, 20:23
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

Quote:
Originally Posted by shelbym
The question is can I do something similar to a shaperange? That would be really cool if I could.
Yes, it's quite easy

Code:
YourShapeRange.ApplyFill f
Reply With Quote
  #3  
Old 24-02-2006, 04:15
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,787
Blog Entries: 11
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 ApplyFill

That is just incredible. That sure speeds up my little application. THANKS a ton Alex.

Shelby
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


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


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