Уже 1,5 часа ищу - ничего не нашёл. Как удалить связь в ячейке я знаю, но вот именно картинки - нет. Пробовал даже вручную удалить - пишет что связи имеются (сами связи не показывает), но удалить не может. Просто если файл xlsx с картинками переслать другому человеку, то на его компьютере картинки не показываются, т.к. связи разорваны. Заранее благодарен всем, кто сможет помочь.
Да уж... Печалька, более 100 просмотров и ни одного предложения как это сделать. Тогда перефразирую вопрос: 1. Как вставить картинку из файла jpg в файл xlsx так чтобы после удаления файла jpg или изменения имени папки где хранится файл jpg картинка сохранялась после закрытия файла xlsx и его открытия заново. А то пишет Не удаётся отобразить связанный рисунок на месте рисунка. 2. Ну если в Excel сделать так нельзя, то как скопировать картинки вместе с ячейками из файла xlsx в файл Word чтобы эти связи с файлом jpg перестали существовать и картинки бы сохранялись бы после такого копирования? Что только не пробовал, сколько не искал в инете, ничего толком нет. Даже повторным копированием в файле xlsm и удалением старых картинок связи сохраняются с файлами jpg.
Спасибо всем! Спасибо модератору, но ранее уже нашёл сам, но только для ворда копированием рисунком. В экселе пока не знаю как сделать, картинки не видно.
Esheron написал: В экселе пока не знаю как сделать
не знаете как сделать что именно? Как вообще пытаетесь напишите. А то пока вообще непонятно как картинки в Excel появляются и почему именно со связями.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Дмитрий(The_Prist) Щербаков написал: ...пока вообще непонятно как картинки в Excel появляются и почему именно со связями.
Вставка просто строкой ActiveSheet.Pictures.Insert(sPicsFilePath & sPicFileName).Select из файла gpg.
Но вставляет со связью с файлом jpg. Если удалить этот файл, то и картинка исчезнет. И потом опять копируем и вставляем рисунком:
Код
Selection.Copy
ActiveSheet.Pictures.Paste.Select
Старую картинку удаляем. Если картинок много, то придётся совать картинки в массив как мне пришлось. При копировании формировать массив со старыми картинками и потом удалить этот массив целиком: ActiveSheet.Shapes.Range(arr).Delete