wmmail.ru – cервис почтовых рассылок на главную
написать письмо
карта сайта

С чего начать?РекламодательПравилаFAQСтатистикаБиржа статейTOP100ФоткиКонтакты
Логин:
Пароль: 
Регистрация   Забыли пароль?
WMLogin
Пользователей всего:

540771

Пользователей сегодня:

80

Пользователей online:

299

Выплачено ($): 7`295`921,50
Выплат: 7`870`768
Писем прочитано: 1`022`573`430

 
 
Online 5
Все ответы
 
 

Вопрос #59322

Внимание! В разделе вопрос-ответ запрещается:

  • Мат, оскорбления, флуд, реклама
  • Сообщения, не являющиеся вопросами/ответами
  • Нарушение законодательства РФ
  • Попрошайничество в любой форме

Выделите текст и нажмите для цитирования  #  
+3   [14.01.2014 14:35] allemnes Рейтинг 1723.43     Стена пользователя allemnes +124

Закрытый вопрос от пользователя allemnes Подключение внешних картинок в word/excel.

Можно вставить картинки в документы word/excel, но если изменить изначальные файлы картинок, которые встраивались в word/excel, то это никоим образом не повлияет на вордовский/экселевский документ, куда их вставляли. Это понятно, поскольку картинки будут являться частью документа.

Совершенно по-другому устроены вебстраницы. На вебстарнице изображения хранятся в отдельном файле. Поэтому можно изменять файлы изображений внешней программой, и они будет выглядеть измененным при просмотре вебстраницы.

Так вот мне интересно, как встроить картинки в word/excel, чтобы было их изменять как внешние фалы. А при открытии вордовского или экселевского документа эти картинки подгружались из внешних файлов? Т.е. как сделать экселевский документ чем-то подобным вебстранице?
Раздел: Программное обеспечение, последний комментарий: 19.01.2014 16:09
Вопрос закрыт автором
Проголосовали: #1622770, dimon64, #796755

Ответы
Ответов всего: 3  вопрос закрыт 
Выделите текст и нажмите для цитирования  #  
+2   [14.01.2014 17:49] #796755   Все ответы пользователя

Я думаю, можно попробовать при помощи макроса
Типа:
Sub Макрос1()

Worksheets("Лист1").Activate
Worksheets("Лист1").Range("A1").Activate

ActiveSheet.Pictures.Insert( _
"C:\Рисунки\рисунок.jpg" _
).Select
End Sub

При открытии файла (*.xlsm) рисунок.jpg будет всегда обновляться.
Проголосовали: allemnes, #957253
Выделите текст и нажмите для цитирования  #  
+1   [16.01.2014 14:57] allemnes Рейтинг 1723.43     Стена пользователя allemnes +124  Все ответы пользователя allemnes

Прошу пока что не закрывать вопрос, поскольку через некоторое время я выложу полный ответ на него.

Добавлено спустя 72 часа 18 минут 57 секунд
Итак, собственно ответ на данный вопрос готов:
#796755 пишет Sub Макрос1()

Worksheets("Лист1").Activate
Worksheets("Лист1").Range("A1").Activate

ActiveSheet.Pictures.Insert( _
"C:\Рисунки\рисунок.jpg" _
).Select
End Sub

Только мне нужно было, чтобы рисунок вставлялся из папки, где находится экселевский документ, т.е. без четкого "C:\Рисунки\рисунок.jpg"
Данный вопрос решается так:

Sub Макрос1()

Dim path As Variant
path = ThisWorkbook.path + "\П.bmp"
'узнает путь данного документа и приклеивает к нему П.bmp (имя нужного файла)

Worksheets("Лист1").Activate
Worksheets("Лист1").Range("B29").Activate

ActiveSheet.Pictures.Insert(path).Select
End Sub
Проголосовали: #796755
Выделите текст и нажмите для цитирования  #  
+1   [19.01.2014 16:09] #796755   Все ответы пользователя

Есть и такой вариант -
http://mepic.ru/view/?id=66a534b0d6d692e7eba3744ecabe932d
А вообще, есть надстройка - PastePictures
( http://excelvba.ru/programmes/PastePictures ) - ну теперь для тех, кто столкнется с похожей проблемой))
Проголосовали: allemnes

Видеоурок

Вопрос-ответ

НОВОСТИ
02.04.2021Конкурс видеороликов
подробнее>>
10.02.2021Комиссия Payeer
подробнее>>

© 2004-2021 «WMMAIL» Пользовательское соглашение