Convert Embedded symbol to geometry then ungroup

 

Hi

I'm using VB6

I have a program that inserts multiple symbols into an SE .dft file.

 

Code example:

Set Symbol1 = objSymbols.Add(igOLEEmbedded, .....

 

After inserting symbols I'm left manually converting the symbol

to Geometry then Ungrouping. How can I Convert symbol to geometry

and ungroup programmatically?

 

Posted by: Scott Smith
Post date: 1/18/2011 3:11:03 AM

4 REPLIES

RE: Convert Embedded symbol to geometry then ungroup

Not sure what you mean by symbols, but for the Active sheet blocks you would do something like this:

 

With seApp.ActiveDocument

i = .ActiveSheet.BlockOccurrences.Count

Do While i > 0

.ActiveSheet.BlockOccurrences(i).Unblock

i = i - 1

Loop

End With

 

You can probably alter the above code for symbols.

 

Posted by: Bill Ledbetter
Post date: 1/18/2011 4:11:18 AM

RE: Convert Embedded symbol to geometry then ungroup

To convert symbol to Group

Symbol1.ConvertToGroup

 

To convert group to geometry:

(The group will be the last one created in the Groups collection in your sheet. This line should be just after the "Symbol1.ConvertToGroup")

 

objSheet.Groups(objSheet.Groups.Count).Ungroup

 

Posted by: Julian Guillo
Post date: 1/18/2011 4:16:36 AM

RE: Convert Embedded symbol to geometry then ungroup

Thanks Bill I'll give it a try

 

Posted by: Scott Smith
Post date: 1/18/2011 4:49:44 AM

RE: Convert Embedded symbol to geometry then ungroup

The Class OLEInsertionTypeConstant.igOLEEmbedded

creates a placeholder which first must be converted to

geometry in the active document. Once this is done

them I can use your code to ungroup. Thanks for

the help. No reply necessary.

 

Posted by: Scott Smith
Post date: 1/18/2011 4:58:07 AM