I'm trying to build a small nesting Function inside of my current working system. What I am having trouble with is that when I add the third shape to the collection and try to position it based on the previous shape added to the collection, it still positions it based on the very first shape. What I end up with is the original in the original position and the copies stacked on top of one another. (I would be particularly interested in what GDG_John has to say about it since I have been using his awesome nesting macro for sometime.)
Function ArrangeImages(ByRef scol1 As Collection, ByRef sA, sB As Shape) Dim i, ii As Long i = scol1.Count If i = 1 Then Set sB = scol1.Item(i) End If If scol1.Count > 1 Then Set sA = sB Set sB = scol1.Item(i) sB.SetPosition sA.PositionX, sA.PositionY + (sA.SizeHeight / 2) + (sB.SizeHeight / 2) + 0.15 End If End Function
For comprehensive Nesting, consider ecut 6 - it's a commercial macro, but has tons of other features too, such as Variable Imaging, Neon and LED modules... and more.. such as bar coding, weeding... on and on.
Yeah, I need this to work inline with another script. I already have one nesting Macro by GDG_John and it works fantastically.