Вставка картинки (из списка ссылок) в примечание

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

Вставка картинки (из списка ссылок) в примечание (Макросы/Sub)

Admaster

Дата: Пятница, 12.03.2021, 11:45 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2019

Добрый день!
Помогите, плз, необходимо вставить картинки в примечание к ячейке эксель.
есть сцепка- артикул, ссылка на картинку.
Это реально ?

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

Сообщение отредактировал Admaster - Пятница, 12.03.2021, 12:03

Ответить

китин

Дата: Пятница, 12.03.2021, 12:41 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7035

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

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

Excel 2007;2010;2016

почитайте, может поможет

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Pelena

Дата: Пятница, 12.03.2021, 12:47 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19569

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

Замечаний: ±

Excel 365 & Mac Excel

вот тут есть готовый код

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Admaster

Дата: Пятница, 12.03.2021, 13:47 | Сообщение № 4

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

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

Сообщений: 3

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

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

Excel 2019

Цитата Pelena, 12.03.2021 в 12:47, в сообщении № 3 ()

вот тут есть готовый код

я читала эту ветку, но не поняла, как его применить к конкретно моему шаблону файла((
помогите, пожалуйста....

Ответить

Serge_007

Дата: Пятница, 12.03.2021, 14:57 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Admaster, 12.03.2021 в 13:47, в сообщении № 4 ()

как его применить к конкретно моему шаблону файла

Макрос по ссылке универсальный, применим без доработок к любому файлу

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Pelena

Дата: Пятница, 12.03.2021, 15:04 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19569

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата Admaster, 12.03.2021 в 13:47, в сообщении № 4 ()

конкретно

[vba]

Код

Public Sub PictureToComment()
Dim rng As Range, com As Comment, Shp As Shape, lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rng In Range("A2:A" & lrow)
Set com = rng.AddComment(" ")
Set Shp = com.Shape
Shp.Fill.UserPicture rng.Offset(, 1)
Next rng
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Вставка картинки (из списка ссылок) в примечание (Макросы/Sub)

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