I was curious as to why when you use "SET" to the ActiveSelection, the values of an object are present, but using that object for some operation doesn't work, but doesn't error out as well. It took me forever to figure it out, but I still don't understand why?? Also, I couldn't NAME the object using "object.name = text" in the first section.
'I welded some objects here ActiveSelection.Weld ActiveSelection, False
'I thought I could assign a shape to the active selection, which was the object created by the weld above. THIS IS THE LINE I FIXED BELOW Set sShatterText = ActiveSelection
'This doesn't work and I wasn't sure why sShatterText.Name = "ShatteredText" 'Getting these values from the set object above does still work. sShTextX = sShatterText.CenterX sShTextY = sShatterText.CenterY 'These 3 lines worked to put one object over the original welding object above. Set sShatterObject = ActiveLayer.Shapes("myBlade1") ActiveDocument.ReferencePoint = cdrCenter 'Set the reference point to the center sShatterObject.SetPosition sShTextX, sShTextY 'Move the Shatter to the text 'The Trim doesn't work, but doesn't give any error either ActiveLayer.Shapes.All.RemoveFromSelection Set s4 = sShatterObject.Trim(sShatterText, True)Once I made this change, everything worked....but why? ' I used "SET" here and it worked Set sShatterText = ActiveSelection.Weld(ActiveSelection, False) 'This works now sShatterText.Name = "ShatteredText" 'This still works the same sShTextX = sShatterText.CenterX 'Get center X of new shattered text sShTextY = sShatterText.CenterY 'Get center Y of new shattered text 'These lines still work the same Set sShatterObject = ActiveLayer.Shapes("myBlade1") ActiveDocument.ReferencePoint = cdrCenter 'Set the reference point to the center sShatterObject.SetPosition sShTextX, sShTextY 'Move the Shatter to the text 'The TRIM now works. ActiveLayer.Shapes.All.RemoveFromSelection Set s4 = sShatterObject.Trim(sShatterText, True)Thanks,Joseph