OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #11  
Old 12-07-2018, 03:33
aakkaarr aakkaarr is offline
Senior Member
 
Join Date: Jan 2009
Posts: 140
Default

Thanks Shark
Reply With Quote
  #12  
Old 31-08-2018, 13:18
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 136
Default

Code:
Sub FillRandShapes()
Const MaxSize = 15
Const MinSize = 5
Dim s As Shape, X#, Y#, w#, h#, z&
    ActiveDocument.Unit = cdrMillimeter
    ActivePage.GetBoundingBox X, Y, w, h
    Randomize
    Set s = ActiveShape: If s Is Nothing Then Exit Sub
    
    For z = 1 To 1000
        Set s = s.Duplicate
        s.SetPosition X + Rnd * w, Y + Rnd * h
        s.SetSize Rnd * MaxSize + MinSize
        randomAngle = Int((360 * Rnd) + 1.5)
        s.Rotate randomAngle
    Next
Woooo .... random angle added

Seems this forum is slowly fading
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
rectangle around (rotation) buga Macros/Add-ons 5 06-11-2011 07:20
Rectangle bug? runflacruiser CorelDRAW/Corel DESIGNER VBA 2 21-07-2011 06:55
Fill a shape with Circles biok CorelDRAW/Corel DESIGNER VBA 13 05-03-2011 12:00
4mm rectangle around the object fungel CorelDRAW/Corel DESIGNER VBA 11 06-03-2009 15:47
Circles to Circles Hernán New product ideas 3 15-03-2004 08:41


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


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