CAD tip # 8474:

Sub smazLogo() 
 Dim obrNazev As String 
 obrNazev = "logo razitko.png" 

 Dim oDoc As Document 
 Dim oDrawDoc As DrawingDocument 
 Dim obrazek As ReferencedOLEFileDescriptor 

 On Error Resume Next 
 Set oDoc = ThisApplication.ActiveDocument 
 If oDoc.DocumentType <> kDrawingDocumentObject Then 
  MsgBox "Aktuální dokument není výkres.", vbCritical, "Nemám výkres" 
  Exit Sub 
 Else 
  Set oDrawDoc = oDoc 
 End If 

 For i = 1 To oDoc.ReferencedOLEFileDescriptors.Count 
  Set obrazek = oDoc.ReferencedOLEFileDescriptors.Item(i) 
  If obrazek.DisplayName = obrNazev Then 
   obrazek.Delete 
  End If 
 Next 

End Sub 

Reference v DWG výkresech Inventoru lze zpravidla také odstranit v prostředí AutoCADu.