How to delete a drawing symbol from all the sheets in the drawing using VBA?

[shuaib_cad]

I want to delete a drawing symbol named "XXX" from all the sheets in the drawing but the symbol is getting deleted from the active sheet only.

Used the following VBA code:

Dim oSymbol As SketchedSymbol

For Each oSymbol In oDoc.ActiveSheet.SketchedSymbols

If oSymbol.Name = "XXX" Then
oSymbol.Delete

Please help me with a VBA code to do the operation in all the sheets in the drawing.

Regards,

Mohammed Shuaib K

[JhoelForshav · Accepted solution]

Hi @shuaib_cad 

In order to do this you must iterate through each sheet in the drawing document 🙂

Sub DeleteSymbols()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oSymbol As SketchedSymbol
For Each oSheet In oDoc.Sheets
    For Each oSymbol In oSheet.SketchedSymbols
    If oSymbol.Name = "XXX" Then oSymbol.Delete
    Next
Next
End Sub