изменение макроса по вставке фото в excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение макроса по вставке фото в excel (Макросы/Sub)

ysia

Дата: Четверг, 26.05.2016, 13:35 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

К сообщению приложен файл: 1635073.xls (48.5 Kb)

Ответить

Karataev

Дата: Четверг, 26.05.2016, 17:47 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 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. Не тестировал, поэтому возможно есть какая-нибудь опечатка.

Ответить

ysia

Дата: Пятница, 27.05.2016, 09:41 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение макроса по вставке фото в excel (Макросы/Sub)

Страница 1 из 1
1