Добрый день!!! нашел вот такой код для вставки картинок, как модифицировать макрос, что бы вставлял все выбранные картинки, в активный лист, (все изображения будут фиксированного размера) Sub tt() ' On Error Resume Next With Application.FileDialog(msoFileDialogOpen) .InitialFileName = ThisWorkbook.Path & "\" & "Фото" If .Show <> -1 Then Exit Sub ppp_ = .SelectedItems(1) End With Set kar_ = Sheets("Фото").Range("A1").Parent.Pictures.Insert(ppp_) With Sheets("Фото").Range("B2") kar_.Top = .Top kar_.Left = .Left End With End Sub [moder]Переименуйте тему согласно Правил форума и оформите код тегами.[/moder]
Добрый день!!! нашел вот такой код для вставки картинок, как модифицировать макрос, что бы вставлял все выбранные картинки, в активный лист, (все изображения будут фиксированного размера) Sub tt() ' On Error Resume Next With Application.FileDialog(msoFileDialogOpen) .InitialFileName = ThisWorkbook.Path & "\" & "Фото" If .Show <> -1 Then Exit Sub ppp_ = .SelectedItems(1) End With Set kar_ = Sheets("Фото").Range("A1").Parent.Pictures.Insert(ppp_) With Sheets("Фото").Range("B2") kar_.Top = .Top kar_.Left = .Left End With End Sub [moder]Переименуйте тему согласно Правил форума и оформите код тегами.[/moder]Jonny_B
O tempora, O mores!!!
Сообщение отредактировал SLAVICK - Понедельник, 06.06.2016, 13:09