Hi.
Can not upload video. Video too large.
Re-created video in 2 parts here:
http://community.coreldraw.com/forums/t/35391.aspx
and
http://community.coreldraw.com/forums/t/35392.aspx
~John
Here's the code for meantime.
Option ExplicitSub messWithShape() Dim s As Shape Dim sr As ShapeRange, sr2 As New ShapeRange Dim i As Long, w#, h# ActiveDocument.BeginCommandGroup "messin around" Optimization = True Set sr = ActivePage.Shapes.All For i = 1 To sr.Count Set s = sr(i) 'If s.SizeWidth > 2 Then sr2.Add doItToIt(s, w, h) 'End If Next i sr2.CreateSelection Optimization = False ActiveWindow.Refresh ActiveDocument.EndCommandGroupEnd SubPrivate Function doItToIt(ByVal s As Shape, ByRef w As Double, h#) As Shape s.Fill.UniformColor.CMYKAssign getRandomNumber(1, 100), getRandomNumber(1, 100), getRandomNumber(1, 100), getRandomNumber(1, 100) s.Rotate getRandomNumber(0, 360) 'w = s.SizeWidth 'h = s.SizeHeight 's.GetSize w, h Set doItToIt = sEnd FunctionPrivate Function getRandomNumber&(nLow&, nHigh&) Dim n1& Randomize n1 = CLng((nHigh - nLow) * VBA.Rnd + nLow) If n1 < nLow Then n1 = nLow If n1 > 100 Then n1 = nHigh getRandomNumber = n1End Function
Any chance you have a youtube account you can post these videos on? Once again thanks for doing these videos.
I think YouTube would make the swf file blurry or it might not take swf files.
I would post on my site but I think hosting would charge me too much for bandwidth. I'm already almost equaling out.
I asked Gerard to increase allowable image/video upload size. Even with 1 meg more we can do a lot!
Hopefully he can do it, then I'll add this video.
I took John's suggestion and I have created a Wiki page with links to all John's Macro lesson posts here:
John, you can edit the Wiki page as you like -- all credit goes to you! I did however, add your webpage link at the bottom.
Patti
pranderson said: I took John's suggestion and I have created a Wiki page with links to all John's Macro lesson posts here: GDG Macros VBA Lessons John, you can edit the Wiki page as you like -- all credit goes to you! I did however, add your webpage link at the bottom. Patti
HI.
Cool.
You guys can mess with that and make it as you like. I'll stick with making the movies and posting here! It is a good idea.