"Сервер выбрал исключение" при вставке изображения в заголовок Word (VBA)

В сценарии Excel vba я пытаюсь скопировать изображение из Excel и вставить его в заголовок Word со следующим кодом:

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.documents.Add

Set WRng = objDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
WRng.Text = "Hello" // Displays properly Hello in the header
Worksheets("Logos").Shapes("LogoToCopy").Copy 
WRng.Paste // Server threw exception error

Тем не менее, я получаю ошибку времени выполнения -2147417851, сервер выдал исключение.

Копирование/вставка текста отлично работает. Любая идея, как скопировать изображение из excel и вставить его в заголовок Word с помощью VBA в Excel? Благодарю.

1 ответ

Хорошо, наконец нашел. Пасту нужно заменить на PasteSpecial и Copy by CopyPicture:

Worksheets("Logos").Shapes("LogoToCopy").CopyPicture
WRng.PasteSpecial

licensed under cc by-sa 3.0 with attribution.