Коллекция рисунков - Очистка

Private Sub PurgeSharedImages()
Dim iVal As Integer
Dim sVal$
    For iVal = CurrentProject.Resources.Count - 1 To 0 Step -1
        If CurrentProject.Resources(iVal).Type = 1 Then
            sVal = CurrentProject.Resources(iVal).Name
            CurrentProject.Resources(iVal).Delete
            Debug.Print "Изображение: " & sVal & " - удалено."
        End If
    Next iVal
End Sub