Программно удалять заданную фигуру в презентации с помощью функции в ActiveX - VB

Формулировка задачи:

Добрый день. Проблема такая: Необходимо программно удалять заданную фигуру в презентации с помощью функции в ActiveX. Она должна удалять фигуру из презентации, в которой она была вызвана (ActivePresentation). С помощью встроенного класса презентации это удается сделать (см. пример). Но то же самое с помощью внешней ActiveX не работает. Библиотеку не забываю регистрировать (regsvr32), добавлять в Tools/References. Тем не менее, выдает ошибку: Runtime error '429' ActiveX component can't create object Удаление фигуры в презентации - простейший пример, но даже он не работает, не говоря уже о других (более сложных) действиях с фигурами, которые потом будут навешаны в ActiveX. Пример прилагается. Прошу помочь с ActiveX (ответным примером, или хотя бы чем то).

Решение задачи: «Программно удалять заданную фигуру в презентации с помощью функции в ActiveX»

textual
                            Листинг программы 
                        
                            PowerPoint.Application.ActivePresentation.Slides(1).Shapes("Rectangle " & CLng(rct)).Delete