Удалять только PDF-объекты в Excel

Question

У меня есть лист с двумя типами объектов: элементы управления формой и объект PDF. Я хочу создать макрос, который удалит только объект PDF, а не мои элементы управления формой.

В настоящее время у меня есть следующий код: ActiveSheet.DrawingObjects.Delete Однако это удаляет как мои элементы управления формой, так и мой объект PDF.

Как я могу настроить это, чтобы выборочно удалить объект PDF или удалить все объекты, кроме моего элемента управления формой.

Большое спасибо!

Для справки: код, который я использую для вставки моего объекта PDF, приведен ниже ..

Public Sub insertFile()

    'Select the cell in which you want to place the attachment
    Range("B34").Select

    'Get file path
    fpath = Application.GetOpenFilename("All Files,*.*", Title:="Select file")
    If LCase(fpath) = "false" Then Exit Sub

    'Insert file
    ActiveSheet.OLEObjects.Add _
    filename:=fpath, _
    Link:=False, _
    DisplayAsIcon:=False

End Sub

Answer 1

У вас уже есть подсказка в существующем коде:

ActiveSheet.OLEObjects.Add ...

Вам просто нужно использовать другой метод:

ActiveSheet.OLEObjects.Delete