Всем здравствуйте! Есть файл Excel в нём хранятся данные сотрудников ФИО, адрес, телефон, и т.д. и гиперссылки на фото сотрудников. Произвожу слияние с Word. Получаю документ типа карточки на сотрудника. Не могу сообразить как мне сделать чтобы в этом документе отображалась фото сотрудника. Или решение на поверхности, а я слишком глубоко полез, или просто туплю))) Люди добры поможите кто чем могет!!! Просто решение нужно было ещё позавчера! Заранее благодарен!
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Спасибо всем за помощь, рекламу и. т. д.! Ни одного сообщение по теме, круто! Особое "спасибо" Игорю за рекламу, но увы прога меня не интересует. Спрашивал я про вставку картинок при слиянии документов Word и Excel стандартными-встроенными методами. Действительное СПАСИБО автору этого сайта за толковое видео http://www.youtube.com/watch?v=18s_LN5_lVY по слиянию документов! Задачу решил самостоятельно. для тех кто в теме в Word есть такая штука { INCLUDEPICTURE "{ MERGEFIELD c:\\Путь\\путь\\Имя_файла.jpg }" \d } вот она и позволила осуществить задуманное. Если кому интересно могу помочь, правда немного пришлось потанцевать с бубном(пока разобрался) зато работает как надо! Когда знаешь- всё просто!!!!
Devlin_Smith, отличный подход! 1. не получили помощи по вопросу и сразу куча претензий:
Цитата
Devlin_Smith написал: Спасибо всем за помощь, рекламу и. т. д.! Ни одного сообщение по теме, круто!
вам кто-то что-то должен был и не сделал не написал? 2. а как сами нашли решение, начинается торговля: "могу показать, могу не показать" написать вам как такой подход называется или сами догадаетесь?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Я не совсем понял о какой торговле идёт речь? Вся необходимая информация для решения задачи была в моём сообщении. Ну, а выкладывать файл с рабочего компьютера увы не мог.
Здравствуйте! Я наконец-то вроде бы решил вопрос, который поднимался в самом начале. Может быть это будет потом кому-то полезно. Итак, задача состоит в следующем. Нужно график из документа Excel сохранить как картинку в Word. Для начала зададим папку для сохранения графиков по умолчанию. Для этого нажмем правой кнопкой на график и выберем "Сохранить как рисунок..." и выберем папку, в которую будут сохраняться рисунку в дальнейшем. После этого пишем макрос (нашел на просторах сети):
Скрытый текст
Код
Sub Макрос6()
'
' Макрос6 Макрос
'
'
Range("A1").Select
ActiveSheet.ChartObjects("Диаграмма 1").Activate
If VarType(Selection) <> vbObject Then
MsgBox "?????????? ??????? ?? ???????? ????????!", vbCritical, ""
Exit Sub
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set oObj = Selection: oObj.Copy
Set wsTmpSh = ThisWorkbook.Sheets.Add
sName = "Пример_1"
With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart
.ChartArea.Border.LineStyle = 0
.Parent.Select
.Paste
.Export Filename:=sName & ".png", FilterName:="PNG"
.Parent.Delete
End With
wsTmpSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Ключевыми моментами макроса являются выбор диаграммы " ActiveSheet.ChartObjects("Диаграмма 1").Activate" и название рисунка "sName = "Пример_1"". После выполнения в папке по умолчанию появляется файл рисунка формата .png с названием "Пример_1". Следующим шагом открываем документ Word куда необходимо вставить рисунок. На панели "Вставка" выбираем "Вставить поле". В открывшемся меню выбираем поле IncludePicture. Справа в свойствах поля прописываем путь к картинке. В моём случае это "C:\Users\Дмитрий\Downloads\123\Пример_1.png". И нажимаем ОК. В результате в документе Word появится картинка, код которой "{INCLUDEPICTURE "C:\\Users\\Дмитрий\\Downloads\\123\\Пример_1.png" \* MERGEFORMAT}". Код можно посмотреть сочетанием клавиш Alt+F9. Файлы примеры прикладываю.