OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 24-04-2009, 18:34
Posts: n/a
Default Multi-Select Random Rotate

Would it be possible for a multi-selection of objects and have them random rotate??

Sort of like a scattered look but each object would cycle through with its own rotated value.

Reply With Quote
Old 24-04-2009, 20:42
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 RandomRotate

The following with take each shape in your selection and rotate it at a random angle.
Sub RandomRotateSelection()
    Dim sr As ShapeRange, s As Shape
    Dim randomAngle As Integer
    Set sr = ActiveSelectionRange
    For Each s In sr
        randomAngle = Int((360 * Rnd) + 1)
        s.Rotate randomAngle
    Next s
End Sub
Best of luck,

Reply With Quote

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
How to Multi CorelDraw Execute? ljesus7 CorelDRAW/Corel DESIGNER VBA 0 27-10-2008 20:34
How to select the black lines, fill in random colors? sy168 CorelDRAW/Corel DESIGNER VBA 2 16-08-2008 03:23
Are there multi-user licenses for CurveWorks? althesignguy CurveWorks 1 14-10-2007 21:52
Random Outlines TTerrell General 2 18-06-2007 08:06
Multi-importer macro Jeff Harrison New product ideas 2 16-02-2007 12:58

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

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