Как скопировать изображение с листа в пользовательскую форму в Excel?
В этой статье вы узнаете методы копирования изображения с активного листа в пользовательскую форму в Excel.
Копирование изображения с листа в пользовательскую форму путем копирования и вставки
Копирование изображения с листа в пользовательскую форму с помощью кода VBA
Копирование изображения с листа в пользовательскую форму путем копирования и вставки
Пожалуйста, выполните следующие действия, чтобы скопировать изображение с листа в пользовательскую форму.
1. Перейдите на лист, содержащий изображение, которое нужно скопировать в пользовательскую форму, а затем нажмите клавиши Alt + F11 вместе, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Пользовательская форма. См. скриншот:
3. Теперь вставьте элемент управления Изображение в Пользовательскую форму. Нажмите кнопку Изображение в диалоговом окне Панель инструментов, затем вручную нарисуйте элемент управления Изображение в Пользовательской форме. См. скриншот:
4. Щелкните правой кнопкой мыши вставленный элемент управления Изображением и выберите Свойства из контекстного меню, как показано на скриншоте ниже:
5. Затем вы увидите панель свойств, которая отображается слева в окне Microsoft Visual Basic for Applications.
6. Вернитесь на лист и выберите изображение, которое хотите отобразить в пользовательской форме, а затем скопируйте его, нажав клавиши Ctrl + C.
7. Вернитесь в окно Microsoft Visual Basic for Applications, прокрутите вниз до поля Изображение и вставьте скопированное имя изображения под вкладкой Алфавитный порядок.
Теперь изображение с листа скопировано в пользовательскую форму.

Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Копирование изображения с листа в пользовательскую форму с помощью кода VBA
В этом разделе будет показан обходной путь для копирования нескольких изображений с листа в пользовательскую форму, а затем отображения соответствующего изображения в пользовательской форме путем выбора имени изображения из выпадающего списка. Выполните следующие действия.
1. Пожалуйста, следуйте шагам 1 и 2 выше, чтобы вставить пользовательскую форму в ваш рабочий лист.
2. Затем вставьте элемент управления Фрейм в Пользовательскую форму, как показано на скриншоте ниже:
3. Щелкните правой кнопкой мыши вставленный Фрейм и выберите Свойства из контекстного меню. На левой панели свойств выберите Нет из поля Видимый. См. скриншот:
4. Вставьте несколько элементов управления Изображение в Фрейм, как показано на скриншоте ниже.
5. Вернитесь на лист и выберите изображение, которое хотите отобразить в пользовательской форме, и нажмите клавиши Ctrl + C, чтобы скопировать его.
6. Вернитесь в окно Microsoft Visual Basic for Applications, щелкните правой кнопкой мыши первый элемент управления Изображение и выберите Свойства из контекстного меню. См. скриншот.
7. В панели свойств нажмите на поле Изображение, затем нажмите клавиши Ctrl + V, чтобы вставить изображение, скопированное на шаге 5, и выберите 1 – fmPictureSizeModeStrtch из раскрывающегося списка PictureSizeMode, как показано на скриншоте ниже.
8. Повторите шаги 5-7, чтобы вставить другие изображения с листа в оставшиеся элементы управления Изображение в Пользовательской форме. Результат будет отображаться, как показано на скриншоте ниже.
9. Переместите элемент управления Фрейм в угол Пользовательской формы, затем вставьте новый элемент управления Изображение и элемент управления Выпадающий список в Пользовательскую форму. См. скриншот:
10. Щелкните правой кнопкой мыши Пользовательскую форму, а затем нажмите Просмотр кода. Затем скопируйте и вставьте приведенный ниже код VBA, чтобы заменить оригинальный код в окне Код.
Код VBA1: Копирование изображения с листа в пользовательскую форму
Private Sub ComboBox1_Change()
UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
Dim xImg As Control
On Error Resume Next
For Each xImg In UserForm1.Controls
If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
UserForm1.ComboBox1.AddItem xImg.Name
End If
Next
End Sub
Примечание: В коде UserForm1 — это имя вставленной пользовательской формы, Image4 — это имя элемента управления Изображение, в котором будут отображаться изображения. А Image представляет все элементы управления Изображение, которые содержат изображения, скопированные с листа. ComboBox1 — это имя выпадающего списка, который вы вставили в пользовательскую форму. Пожалуйста, измените их на свои собственные.
11. Закройте окно Microsoft Visual Basic for Applications.
12. Вставьте кнопку команды в рабочий лист, нажав Разработчик > Вставить > Кнопка команды (элемент управления ActiveX).
13. Щелкните правой кнопкой мыши кнопку команды и выберите Просмотр кода из контекстного меню. Затем скопируйте и вставьте приведенный ниже код VBA в окно Код. И, наконец, закройте окно.
Код VBA2: Копирование изображения с листа в пользовательскую форму
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. Нажмите Разработчик > Режим конструктора, чтобы отключить режим конструктора.
С этого момента при нажатии на кнопку команды появится пользовательская форма. Вы можете отобразить изображение, выбрав имя изображения из выпадающего списка. См. скриншот:
Выбор разных имен из выпадающего списка будет отображать разные изображения в пользовательской форме.
Связанные статьи:
- Как центрировать изображение в ячейке Excel?
- Как проверить, содержит ли ячейка изображение в Excel?
- Как динамически вставить изображение или картинку в ячейку на основе значения ячейки в Excel?
- Как увеличить изображение при нажатии на него в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.





- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек