Как скопировать изображение с листа в пользовательскую форму в 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 без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Копирование изображения с листа в пользовательскую форму с помощью кода 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?