Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/изменение макроса по вставке фото в excel - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение макроса по вставке фото в excel (Макросы/Sub)
изменение макроса по вставке фото в excel
ysia Дата: Четверг, 26.05.2016, 13:35 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Друзья, прошу вашей помощи!
На прежней работе работал с файлом по вставке фото в excel 2003, не было печали. Теперь работаю с excel 2010 и столкнулся со следующей проблемой:
Фото в файл вставляются, но при копировании их в другой файл или при сохранении текущего, картинки в файле не сохраняются. Т.е. при отправке такого файла кому-либо, адресат картинки не увидит.
Помогите пожалуйста разобраться, что не так.
Заранее спасибо, файл прилагаю!
К сообщению приложен файл: 1635073.xls(48Kb)
 
Ответить
СообщениеДрузья, прошу вашей помощи!
На прежней работе работал с файлом по вставке фото в excel 2003, не было печали. Теперь работаю с excel 2010 и столкнулся со следующей проблемой:
Фото в файл вставляются, но при копировании их в другой файл или при сохранении текущего, картинки в файле не сохраняются. Т.е. при отправке такого файла кому-либо, адресат картинки не увидит.
Помогите пожалуйста разобраться, что не так.
Заранее спасибо, файл прилагаю!

Автор - ysia
Дата добавления - 26.05.2016 в 13:35
Karataev Дата: Четверг, 26.05.2016, 17:47 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 641
Репутация: 226 ±
Замечаний: 0% ±

Excel
Замените Вашу процедуру на эту:
[vba]
Код
Sub ВставитьКартинку(ByRef cell As Range, ByVal Pic As String)
    On Error Resume Next
    Dim ph As Shape
    Set ph = cell.Parent.Shapes.AddPicture(Filename:=Pic, LinkToFile:=False, SaveWithDocument:=True, _
        Left:=cell.Left + 2, Top:=cell.Top + 2, Width:=-1, Height:=-1)
    k = ph.Width / ph.Height
    ph.Width = cell.Width - 4: ph.Height = ph.Width / k
    cell.EntireRow.RowHeight = ph.Height + 4
End Sub
[/vba]
P.S. Не тестировал, поэтому возможно есть какая-нибудь опечатка.


 
Ответить
СообщениеЗамените Вашу процедуру на эту:
[vba]
Код
Sub ВставитьКартинку(ByRef cell As Range, ByVal Pic As String)
    On Error Resume Next
    Dim ph As Shape
    Set ph = cell.Parent.Shapes.AddPicture(Filename:=Pic, LinkToFile:=False, SaveWithDocument:=True, _
        Left:=cell.Left + 2, Top:=cell.Top + 2, Width:=-1, Height:=-1)
    k = ph.Width / ph.Height
    ph.Width = cell.Width - 4: ph.Height = ph.Width / k
    cell.EntireRow.RowHeight = ph.Height + 4
End Sub
[/vba]
P.S. Не тестировал, поэтому возможно есть какая-нибудь опечатка.

Автор - Karataev
Дата добавления - 26.05.2016 в 17:47
ysia Дата: Пятница, 27.05.2016, 09:41 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Karataev, огромное спасибо! Очень выручили.
 
Ответить
СообщениеKarataev, огромное спасибо! Очень выручили.

Автор - ysia
Дата добавления - 27.05.2016 в 09:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение макроса по вставке фото в excel (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!