К сожалению, большинство сообщений об ошибках MS Office VB - ДЕРЬМО!

Почему хреново? Потому что их сложно понять обычному пользователю. А когда вы нажимаете кнопку «Справка» в сообщении об ошибке, вы попадаете на нерелевантную ссылку / страницу в Интернете или в справке Excel. Я подумывал о применении в качестве «средства записи сообщений об ошибках» в Microsoft: D

Проработав с ним более 18 лет, я могу распознать большинство из них, но время от времени, когда я сталкиваюсь с новым сообщением об ошибке, мне действительно приходится искать в Google, чтобы найти, что означает эта ошибка !!!

В любом случае...

Как я уже сказал: «Когда Excel находится в режиме редактирования, он вроде как полностью зависает»

А чтобы увидеть это в действии и действительно понять, что происходит, сделайте следующее.

1. Открыть Excel
2. Добавить новый рабочий лист
3. Перейдите на любой лист и нажмите F2 или дважды щелкните ячейку A1. т.е. переведите ячейку в режим редактирования
4. Открыть PowerPoint
5. Добавить новую презентацию
6. Щелкните ВСТАВИТЬ | ОБЪЕКТ | Лист Microsoft Excel (Создать новый), как показано на изображении ниже.

Вы заметите, что теперь получите более "понятную ошибку".

Альтернатива

Мы знаем, что Excel позволяет создавать несколько экземпляров Excel. Итак, что мы будем делать сейчас, это

1. Создать новый экземпляр Excel
2. Добавить новый рабочий лист
3. Сохраните пустую книгу во временном каталоге пользователя.
4. Добавьте этот файл в PowerPoint
5. Удалить этот файл

Плюсы

Вы сможете добавить форму

Минусы

Вы не сможете работать с ним, пока не перейдете в режим редактирования. Я все еще пытаюсь понять, как открыть это в отдельном экземпляре Excel, дважды щелкнув по нему.

Код

'~~> API to get user's temp path
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Const MAX_PATH As Long = 260

Sub Sample()
    Dim oxlapp As Object, oxlwb As Object
    Dim filePath As String

    '~~> Create a temporary file name
    filePath = TempPath & Format(Now, "ddmmyyhhmmss") & ".xlsx"

    '~~> Create a new instance
    Set oxlapp = CreateObject("Excel.Application")

    '~~> Add a new workbook
    Set oxlwb = oxlapp.workbooks.Add

    '~~> Save it to the temp directory
    oxlwb.SaveAs filePath, 51

    '~~> Add the shape
    ActivePresentation.Slides(1).Shapes.AddOLEObject 30, 30, 100, 100, , filePath, msoFalse, , , , msoFalse

    oxlwb.Close (False)
    oxlapp.Quit

    Kill filePath
End Sub

Function TempPath() As String
    TempPath = String$(MAX_PATH, Chr$(0))
    GetTempPath MAX_PATH, TempPath
    TempPath = Replace(TempPath, Chr$(0), "")
End Function

Когда вы запустите этот код, вы увидите вот что

Чтобы обобщить все комментарии и предоставить всем желающим план действий в будущем, вот соответствующие факты и решения, которые я принял в своем заявлении, чтобы избежать проблемы:

• Вы не можете отправлять команды VBA в Excel, пока он находится в режиме редактирования, это приведет к его зависанию или, если это делается через внешнее приложение (например, PowerPoint), будет выведено ранее указанное сообщение об ошибке. (@ SiddharthRout)

• «В COM приложение представляет собой COM-сервер, который обрабатывает запросы от COM-клиентов. Поскольку режим обрабатывается на уровне приложения, а не на уровне документа, он блокируется для всех документов». Это означает, что решение, размещенное здесь, не будет работать. (@ Comintern)

• Такое поведение является преднамеренным, а не ошибкой (@SiddharthRout), нет возможности изменить режим редактирования Excel из PowerPoint, если у пользователя открыто окно Excel в режиме редактирования, невозможно запустить команду «AddOLEObject» из Силовая установка.

Решение

Что я сделал, так это создал специальный случай в моем обработчике ошибок для вывода сообщения:

Не удалось подключиться к Excel (ошибка -2147467259). Убедитесь, что Excel установлен и не находится в «режиме редактирования». Закройте все открытые копии Excel и повторите попытку.

Остальное будет зависеть от пользователя ...