ВСТАВКА ФОТО В ЛИСТ EXCEL С ПОМОЩЬЮ МАКРОСА (НУЖНА ПОМОЩЬ!)
Очень нужна Ваша помощь в создании макроса.
По роду занятий, мне постоянно приходиться вставлять картинки JPG в лист Excel по 100-200 штук в день, занятие крайне трудоемкое, есть ли возможность его упростить с помощью макроса.
Пример:
1. Лист Excel со столбцами: № п.п., артикул, наименование, цена, фото. (пример приложен к теме)
Ширина столбца фото 248 пискел, высота всех сток 165 пиксел, именно это и есть размер необходимого изображения в столбце фото, приходиться вставлять по одной фотографии и подгонять ее по размерам, потом сжимать, чтобы вес файла уменьшить, занятие безумное и занимает очень много времени.
Есть одна постоянная название каждой фотографии, соответствует номеру артикула напротив ячейки, где она должна находиться, возможно ли автоматизировать этот процесс с помощью макроса, я конечно не силен в этой теме, но вот как мне это видится, к примеру я создал лист, вставил все данные (№, артикул, наименование, цена), создал столбик фото растянул все столбы и стоки до необходимого размера и «волшебство» с помощью макроса из общей папки со всеми фото на рабочем столе я втягиваю фотографии в соответствии с их названием, т.е. в стоку где артикул равен имени фото и возможно ли чтобы фотографии сразу уменьшались до размера ячейки????
ГУРУ ПРОГРАМИРОВАНИЕ – ПОМОГИТЕ!!!!!
ActiveSheet.Pictures.Insert(sFilePicName).Select
origW = Selection.ShapeRange.Width
origH = Selection.ShapeRange.Height
endH = Range("A39").Top - Range("A28").Top
endW = Range("U39").Left
kf = origW / endW
If origH / endH > kf Then kf = origH / endH
endH = origH / kf
endW = origW / kf
With Selection.ShapeRange
.Left = Range("U39").Left / 2 - endW / 2
.Top = Range("A28").Top
.Height = endH
.Width = endW
End With
End Sub