noob question but,
activepage.shapes.all.createselection selects everyting on that page even I am inside a symbol. so, what is the way to select (all) shapes inside a symbol?
Symbol is something like a link to parent shape, stored in symbol library. You have to use Shape.Symbol.RevertToShapes, after this you can select shapes that were inside symbol.
Hi, this may help :-)If ActiveLayer.Name = "Symbol Contents" Then ActiveLayer.Shapes.All.CreateSelectionEnd IfIf you do not have the English version of Corel, you can find out the name of the symbol layer as follows:
Sub ActiveLayerName()
Dim obj As New DataObject
obj.SetText ActiveLayer.Nameobj.PutInClipboard
MsgBox "Name of active layer: " & ActiveLayer.Name
End Sub
Next code finds shapes inside symbol and scale it to 110%
Private Sub testSymbol() Dim s As Shape, sr As ShapeRange Set s = ActiveShape If s.Type = cdrSymbolShape Then s.Symbol.Definition.EnterEditMode Set sr = ActiveLayer.Shapes.All sr.SetSize sr.SizeWidth * 1.1, sr.SizeHeight * 1.1 s.Symbol.Definition.LeaveEditMode End If End Sub
very helpful to clean up my macro. thank you.