1 of 1 people found this helpful
I think you can retrieve symbols without ungroup.
For Each Sym In ThisDisplay.Symbols If TypeOf Sym Is Composite Then Set comp = Sym For Each compsym In comp.GroupedSymbols If compsym.Type = pbSymbolValue Then MsgBox (compsym.GetTagName(1)) End If Next compsym End If Next Sym
This code runs correctly if the display contains grouped object and pbSymbolValue objects. It shows tag name...
You said that you are using pbSymbolText(Tag Value, Tag Name). I don't understand well about it. If you can explain it more, we can support you for more details.