Delete linked image file from title block

By Adam Nagy

If an image file was inserted into a drawing's title block with the "LINK" option and the file got moved or deleted, then when you try to edit the title block definition you get this dialog:

You can remove those images programmatically as well. Here is a VBA code that does this:

Sub DeleteSketchImage()
  Dim dwg As DrawingDocument
  Set dwg = ThisApplication.ActiveDocument
  
  Dim s As Sheet
  Set s = dwg.ActiveSheet
  
  Dim tbd As TitleBlockDefinition
  Set tbd = dwg.TitleBlockDefinitions("ANSI - Large")
  
  ' This is to avoid any dialog popping up
  ThisApplication.SilentOperation = True
  
  Dim sk As DrawingSketch
  Call tbd.Edit(sk)
  
  Dim si As SketchImage
  Set si = sk.SketchImages(1)
  
  If si.LinkedToFile Then
    Dim fso As Object
    Set fso = ThisApplication.FileManager.FileSystemObject
  
    If Not fso.FileExists(si.Name) Then
      Call si.Delete
    End If
  End If
  
  Call tbd.ExitEdit(True)
  
  ThisApplication.SilentOperation = False
End Sub