Visio: я получил ошибку автоматизации для библиотеки, не зарегистрированной

Question

Я получил следующую ошибку на Visio:

Ошибка автоматизации 8002801d библиотека не зарегистрирована

это строки передошибка:

 Dim shp As Visio.Shape
 Dim pagShape As Visio.Shape
 Set pagShape = Visio.ActivePage.PageSheet