Вставка таблицы картинкой в word одной кнопкой

[Liviel]

ну сначала очередной вопрос:
в той конторе где работаю, таблицы начали вставлять с помощью PasteSpecial - Picture (windows metafile)

и очень хотят, чтобы это было на горячих клавишах, т.е. скопировал таблицу в екселе, зашел в ворд, нажал кнопку (на клаве) и сразу она картинкой вставилась. Как это сделать я не знаю. Пыталась писать макрос, но видимо мои знания в этом мелки. Если можете, помогите.


P.S. Может быть сделаем отдельную тему во Word?

 

[Neech]

Ответ: Вставка таблицы картинкой в word одной кнопкой

Sub Macros1()
Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
End Sub
и назначьте ему клавишу

 

[Liviel]

Ответ: Вставка таблицы картинкой в word одной кнопкой

спасибо, но почему-то вышло немного не так... он вставляет картинкой но потом ее нельзя выключить по середине например...
и как сделать, чтобы это работало и в текст боксе тоже?

 

[Evgen]

Ответ: Вставка таблицы картинкой в word одной кнопкой

Liviel, попробуйте wdFloatOverText заменить на wdInLine.

Если не получится, то уже врукопашную: назначьте для картинки значение параметра "Обтекание текста" – В тексте.
Если не срабатывает, то сначала По контуру, а затем В тексте.

Что такое "текст бокс" в терминах Ворда?
Надпись?

 

[Liviel]

Ответ: Вставка таблицы картинкой в word одной кнопкой

Да. Надпись. Просто чтобы ограничить место для ввода таблиц и графиков ( у нас это вся правая сторона листа) я ввела "Надпись." и уже в нее рисунком вставляем таблицы из екселя и графики. а иначе начинается ...

 

[Evgen]

Ответ: Вставка таблицы картинкой в word одной кнопкой

> иначе начинается

Есть такое дело. ))

Так что насчет wdInLine?
Не получается так?
Я предположил, что это значение по логике должно вставлять картинку именно как "В тексте".

 

[Liviel]

Ответ: Вставка таблицы картинкой в word одной кнопкой

Liviel, попробуйте wdFloatOverText заменить на wdInLine.

Подействовало! в обычном тексте действует, и если вставлять в ячейку таблицы тоже действует.

А вот в надпись - никак.


А можно ли еще в этот же макрос внедрить инфу о том, что он эту таблицу должен будет вставить по середине?

 

[Evgen]

Ответ: Вставка таблицы картинкой в word одной кнопкой

Попробуйте добавить в макрос строчку

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

 

[Liviel]

Ответ: Вставка таблицы картинкой в word одной кнопкой

Спасибо большое! Сработало!
(и все таки интеерсно почему он отличает курсор в тексте от курсора в текстбоксе(надпись).

 

[Evgen]

Ответ: Вставка таблицы картинкой в word одной кнопкой

> почему он отличает курсор

Этого я не знаю.
Надо читать документацию.
Может, в ней найдется...
Или кто другой подскажет.

 

[Liviel]

Ответ: Вставка таблицы картинкой в word одной кнопкой

Да конечно, Вы мне помогли очень сильно! спасибо!!!!!