имя (с расширением) картинки из ячейки

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

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

имя (с расширением) картинки из ячейки (Макросы/Sub)

emkub

Дата: Вторник, 10.11.2020, 14:53 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 171

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

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

Excel 2013

Здравствуйте!
Нужна маленькая помощь. В приложенном файле есть макрос, который выносит в нужную ячейку имя фотки из этой строки. Но имя ставится без расширения.
Подскажите пожалуйста, как ставить имя с расширением?
Заранее благодарю откликнувшихся!
[vba]

Код

Sub GetCellsWithPicture()
    Dim pic As Shape
    For Each pic In ActiveSheet.Shapes
        a = pic.Name
        pic.TopLeftCell.Offset(, 8).Value2 = pic.Name
    Next
End Sub

[/vba]

К сообщению приложен файл: 2019-20.xlsm (57.0 Kb)

Сообщение отредактировал emkub - Вторник, 10.11.2020, 14:54

Ответить

Pelena

Дата: Вторник, 10.11.2020, 16:37 | Сообщение № 2

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Этот макрос выводит в ячейку название рисунка на листе. У него нет расширения

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

Ответить

emkub

Дата: Вторник, 10.11.2020, 17:59 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 171

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

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

Excel 2013

Т.е. его нужно сохранить в папку и затем уже ставить расширение. Верно понимаю?

Ответить

Pelena

Дата: Вторник, 10.11.2020, 19:20 | Сообщение № 4

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Объясните, зачем Вам расширение в ячейке?
Может, надо заполнять эту ячейку, когда вставляете рисунок?
Если расширение всегда одинаковое, то может, достаточно просто добавить ".jpg", например
pic.Name & ".jpg"

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

Ответить

emkub

Дата: Вторник, 10.11.2020, 23:06 | Сообщение № 5

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

Ранг: Форумчанин

Сообщений: 171

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

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

Excel 2013

Я просто вытаскиваю папку с картинками из этого файла (открывая через архиватор). Вот у меня уже готовая папка с фотками.
А имя файла нужно целиком для последующего импорта на сайт, и чтобы фотки подтянулись по указанному пути. Расширения разные: jpeg, png.

Ответить

Pelena

Дата: Среда, 11.11.2020, 07:22 | Сообщение № 6

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата emkub, 10.11.2020 в 23:06, в сообщении № 5 ()

готовая папка с фотками

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

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

Ответить

имя (с расширением) картинки из ячейки (Макросы/Sub)

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