MS Word Macro ... невозможно вставить PNG

Question

У кого-нибудь были проблемы с вставкой файла PNG в текстовый документ с использованием макроса VBA?

У меня есть документ MS Word, который содержит очень большой список каталогов файлов изображений внутри таблицы. Меня попросили обновить документ, вставив соответствующее изображение перед именем.

Теперь, если я введу изображение вручную (используя Insert|Image|From File), я смогу успешно разместить изображение PNG ... поэтому я решил написать быстрый макрос VBA, чтобы вставить изображение для меня. Ниже приведен пример кода:

Dim myFile  As String
Selection.SelectCell
Selection.Copy
myFile = _
   Chr(34) & "C:\Documents and Settings\...\Project\Images\" _
   & Left(Selection.Text, Len(Selection.Text) - 2) & Chr(34)

Selection.InlineShapes.AddPicture _
   FileName:=myFile, LinkToFile:=False, SaveWithDocument:=True

Результаты:

• Всякий раз, когда я выполняю макрос, я получаю диалоговое окно с ошибкой « Невозможно преобразовать », и изображение не вставляется.
• Я даже изменил код для вызова диалога wdDialogInsertPicture, и он работал просто отлично.

Это очень запутанно ... при использовании ручного процесса вставка работает, но при использовании автоматизированного решения вставка не работает !

Есть идеи или предложения?

Answer 1

Я пробовал макрос несколько раз, и он работает ... кажется, что я больше не могу воссоздать ошибку снова.Итак, я собираюсь отметить это в столбце «Тайны Office VBA» и оставить все как есть ... это не высокоприоритетный проект, поэтому мне не нужно продолжать расследование.

Спасибо Alain и Joel Spolsky за помощь.