Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
HELP. Как закинуть 285 картинок из папки в каждую отдельную ячейку Excel по порядку
 
#1
06.01.2020 07:40:24
Нужно из папки, в которой 285 изображений автоматически закинуть их в ячейки Excel по порядку начиная с A2, A3, A4 и т.д. до A286. Все картинки одинаковые по размеру 750px на 1334px. Желательно, чтобы можно было задать им изображение не дефолтное, а то, которое я хочу, например 200px на 600px. Как это сделать? Я полный ноль в Экселе и тупка. Когда гуглю ничего не понимаю. Дайте, пожалуйста, готовый ответ для нуба.
 
 
 
#2
06.01.2020 09:55:16
И вам тоже здравствуйте.
Цитата

2.7. Если вам нужен не совет по самостоятельному решению задачи, а чтобы все сделали за вас - добро пожаловать в ветку Работа. Там, скорее всего, найдутся специалисты, которые разберутся с вашей проблемой быстро, качественно и за разумную плату.
 
 
 
#3
06.01.2020 10:21:06
Мне нужно именно объяснение. Я готов за него заплатить сотню, если оно сработает. Сделаю сам. Я плохо разбираюсь в интерфейсе программы, не работаю в ней. Мне нужно сделать 1 действие, чтобы не вкидывать изображения вручную.
 
 
 
#4
06.01.2020 11:06:43
Цитата
ermolyuk97 написал:
Мне нужно сделать 1 действие, чтобы не вкидывать изображения вручную.
Готовой кнопки в интерфейсе программы - нет. Для выполнения такого действия нужно написать макрос, который будет брать очередной файл изображения, изменять его число пиксел по вертикали/горизонтали, сохранять в промежуточном файле изменения, загружать по позиции очередной ячейки и изменять размер этой ячейки так, чтобы изображение полностью закрывало ячейку. Учитывая одинаковый размер изображений в пикселях (хотя вы ни словом не обмолвились - одинаковое ли у них разрешение), последний пункт, про размеры ячеек, можно выполнить однократно.
Так понятнее?
 
 
 
#5
06.01.2020 11:14:39
Выделяем A1. Вставка , картинок, выбираем несколько (удерживая CTRL, только не все, допустим 5. они вставятся выделенными. Задать размер. Перетащить каждый в свою ячейку от A1 до A5, выделяем A6. повторяем.  
По вопросам из тем форума, личку не читаю.
 
 
 
#6
06.01.2020 11:18:32
Цитата
БМВ написал:
Перетащить каждый в свою ячейку от A1 до A5,
Интересно, а как это сбивается с требованием
Цитата
ermolyuk97 написал:
Мне нужно сделать 1 действие
А исходя из
Цитата
ermolyuk97 написал:
285 изображений
таких действий - 285 :)
 
 
 
#7
06.01.2020 11:22:15
Андрей VG,  Андрей, Привет.
Ну за соточку то, даже 286 раз можно  :D  
По вопросам из тем форума, личку не читаю.
 
 
 
#8
06.01.2020 11:28:18
Тёзка, привет. Как-то не озадачивался первой частью сего марлезонского балета, хотя, может и встречал. Можно примерчик или ссылочку?
 
 
 
#9
06.01.2020 11:37:18
RAN, не тезка, но привет. так вроде у Игоря https://excelvba.ru/code/ResizeImages
По вопросам из тем форума, личку не читаю.
 
 
 
#10
06.01.2020 11:47:01
Миш, спасибо. Вероятно, там и видел. Но, за безнадобностью, крепко забыл.
 
 
 
#11
06.01.2020 11:48:27
Цитата
RAN написал:
Можно примерчик
Можно. Подключаем библиотеку Microsoft Windows Image Acquisition Library v2.0
Код
Public Sub ResizeImage()
    Dim pImage As New WIA.ImageFile
    Dim pFilters As New ImageProcess
    Dim pTransform As WIA.Filter
    
    pImage.LoadFile "C:\Path\answer.png"
    pFilters.Filters.Add "{4EBB0166-C18B-4065-9332-109015741711}"
    Set pTransform = pFilters.Filters(1)
    pTransform.Properties("MaximumWidth").Value = 600
    pTransform.Properties("MaximumHeight").Value = 200
    pTransform.Properties("PreserveAspectRatio").Value = False
    Set pImage = pFilters.Apply(pImage)
    pImage.SaveFile "C:\Path\answer1.png"
End Sub
 
 
 
#12
06.01.2020 12:16:52
Андрей, спасибо. Это поинтереснее, чем через ту кучу WinAPI.
 
 
 
#13
06.01.2020 17:30:10
Андрей, спасибо, не знал про такой вариант
Еще бы быть уверенным, что эта библиотека есть во всех последних версиях Office
(погуглил, вроде как в WindowsXP эта библиотека появилась только в составе ServicePack 1)

В будущих проектах, скорее всего, перейду на использование этой библиотеки WIA
(а то с WinAPI слишком много возни было, и отладка кода весьма непростая)
 
 
 
Страницы: 1
Наверх