Класс не задан (ошибка 31018)
Если не указать источник (свойство SourceDoc) при установке Action = 0 (метод CreateEmbed), для имени класса, доступного в системе, должно быть установлено свойство Class.
Чтобы отобразить список доступных имен классов во время разработки, щелкните правой кнопкой мыши элемент управления контейнера OLE и выберите команду Insert Object (Вставить объект).
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.