Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Надпись на картинках (формат jpg.) с файла эксель, Нужен макрос
 
#1
30.09.2015 15:17:59
Необходимо автоматизировать процесс переноса надписей на картинки (фото).
Надпись должна быть внизу фотографии, черным цветом.
Данные берутся из таблицы -см. вложение, столбец:
Общая   характеристика
Необходим сам макрос. Благодарю за содействие.
 
 
 
#2
30.09.2015 15:32:06
а где взять эти картинки / фото?
макрос получится весьма непростой (если надо на графические файлы наносить надписи) - бесплатно делать вам такое никто не будет (потому что с вашей стороны никаких попыток что-либо сделать не видно, - вы просто выложили задание), да и платно, думаю, тоже (ибо к Excel макрос мало отношения имеет, а работать с графикой из Excel весьма непросто)

поищите лучше в интернете готовые программы для пакетной обработки графических файлов - они такое умеют
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
30.09.2015 16:01:14
Игорь, спасибо за рекомендацию. вообще такая возможность есть? мне необходимо  это через эксель, в силу того, что для каждого товара цена и характеристики разные. Все данные в таблице Эксель. Картинка любая с форматом jpg,jpeg.
 
 
 
#4
01.10.2015 05:17:36
Доброе время суток
Можно конечно и так попробовать
Код
    Dim pChart As Chart
    Dim pSheet As Worksheet
    Set pSheet = ThisWorkbook.Worksheets.Add
    Set pChart = pSheet.Shapes.AddChart(XlChartType.xlXYScatter, 0, 0, 200, 200).Chart
    pChart.Shapes.AddPicture "d:\path\imagename", msoFalse, msoTrue, 0, 0, 200, 200
    pChart.Shapes.AddTextEffect msoTextEffect12, "Hello Word!", "Times New Roman", 32, msoTrue, msoTrue, 20, 50
    pChart.Export "d:\path\result_Image_Name", "jpeg", False

Только качество будет не особенно хорошим, в прочем, можно по экспериментировать с размерами.

Успехов
 
 
 
Страницы: 1
Читают тему
Наверх