Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка картинок - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка картинок (Макросы/Sub)
Вставка картинок
Jonny_B Дата: Понедельник, 06.06.2016, 09:58 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!!!
нашел вот такой код для вставки картинок,
как модифицировать макрос, что бы вставлял все выбранные картинки, в активный лист, (все изображения будут фиксированного размера)
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]


O tempora, O mores!!!

Сообщение отредактировал SLAVICK - Понедельник, 06.06.2016, 13:09
 
Ответить
СообщениеДобрый день!!!
нашел вот такой код для вставки картинок,
как модифицировать макрос, что бы вставлял все выбранные картинки, в активный лист, (все изображения будут фиксированного размера)
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
Дата добавления - 06.06.2016 в 09:58
sboy Дата: Понедельник, 06.06.2016, 10:22 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Удалено администрацией


Яндекс: 410016850021169
 
Ответить
СообщениеУдалено администрацией

Автор - sboy
Дата добавления - 06.06.2016 в 10:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка картинок (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!