This discussion has been locked.

You can no longer post new replies to this discussion. If you have a question you can start a new discussion

select shapes inside a symbol. how?

ArifG 10 months ago

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?

Top Replies

Martin_Obecovsky 10 months ago +1

Hi, this may help :-) If ActiveLayer.Name = "Symbol Contents" Then ActiveLayer.Shapes.All.CreateSelection End If If you do not have the English version of Corel, you can find out the name of the symbol...
shark_ 10 months ago in reply to ArifG +1

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...

Parents

Martin_Obecovsky 10 months ago

Hi, this may help :-)

If ActiveLayer.Name = "Symbol Contents" Then
ActiveLayer.Shapes.All.CreateSelection
End If

If 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.Name
obj.PutInClipboard

MsgBox "Name of active layer: " & ActiveLayer.Name

End Sub
Cancel
Up +1 Down

Cancel
ArifG 10 months ago in reply to Martin_Obecovsky

for backwards combability getting layer name is logical(for older versions maybe). thank you for your solutions
Cancel
Up 0 Down

Cancel

Reply

Martin_Obecovsky 10 months ago in reply to ArifG

Not to older but related to region language version for example:
German = "Symbol-Inhalte"
Czech = "Obsah symbolu"
etc...
Cancel
Up 0 Down

Cancel

Children

No Data