'iLogic Code adapted from VBA sample 'https://knowledge.autodesk.com/support/inventor-products/troubleshooting/caas/sfdcarticles/sfdcarticles/Inventor-have-OLE-file-can-not-be-deleted.html 'This iLogic code was first posted on Cadline Community:> https://www.cadlinecommunity.co.uk/hc/en-us/articles/207314469 oAsk = MessageBox.Show("You are about to delete ALL OLE references in this document"& vbLf & vbLf & _ "This includes BMP's, JPG's, PDF's and even simulation files if run in a part/assembly file." & vbLf & vbLf & _ "Do you want to continue?", "!! READ THIS MESSAGE CAREFULLY !!",MessageBoxButtons.YesNo,MessageBoxIcon.Information) If oAsk = vbNo Then Return Else Dim oDocCadline As Document oDocCadline = ThisApplication.ActiveDocument If oDocCadline.ReferencedOLEFileDescriptors.Count = 0 Then MessageBox.Show("There aren't any OLE references in this document", "Cadline Community iLogic") Exit Sub End If Dim aOLERefs() As ReferencedOLEFileDescriptor ReDim aOLERefs(oDocCadline.ReferencedOLEFileDescriptors.Count - 1) Dim iRefCount As Integer iRefCount = oDocCadline.ReferencedOLEFileDescriptors.Count Dim i As Integer For i = 1 To iRefCount aOLERefs(i - 1) = oDocCadline.ReferencedOLEFileDescriptors.Item(i) Next For i = 1 To iRefCount If MsgBox("Delete """ & aOLERefs(i - 1).FullFileName & """?", vbQuestion + vbYesNo,"Cadline Community iLogic") = vbYes Then aOLERefs(i - 1).Delete End If Next End If