Як скопіювати зображення з робочого аркуша в форму користувача в Excel?
Ця стаття покаже вам способи копіювання зображення з активного аркуша в Userform в Excel.
Скопіюйте зображення з робочого аркуша в Userform за допомогою копіювання та вставки
Скопіюйте зображення з робочого аркуша у форму користувача за допомогою коду VBA
Скопіюйте зображення з робочого аркуша в Userform за допомогою копіювання та вставки
Будь ласка, виконайте наступне, щоб скопіювати зображення з робочого аркуша в Userform.
1. Перехід до робочого аркуша містить зображення, яке потрібно скопіювати до Userform, а потім натисніть інший + F11 клавіші разом, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікно, натисніть Insert > Форма користувача. Дивіться знімок екрана:
3. Тепер, будь ласка, вставте елемент керування зображеннями в UserForm. Клацніть на зображення кнопка в Інструменти діалоговому вікні, а потім намалюйте елемент керування зображеннями в Форма користувача вручну. Дивіться знімок екрана:
4. Клацніть правою кнопкою миші на вставленому елементі керування зображенням і натисніть властивості з контекстного меню, як показано на знімку екрана нижче:
5. Тоді ви можете побачити a властивості панель відображається на лівій стороні Microsoft Visual Basic для додатків вікна.
6. Поверніться до робочого аркуша та виберіть зображення, яке ви хочете відобразити в User User, а потім скопіюйте зображення, натиснувши Ctrl + C ключі.
7. Потрапити в Microsoft Visual Basic для додатків знову прокрутіть вниз, щоб натиснути Картинка а потім вставте в нього скопійоване ім'я зображення на вкладці Алфавіт.
Тепер зображення на робочому аркуші копіюється в Userform.
Скопіюйте зображення з робочого аркуша у форму користувача за допомогою коду VBA
Цей розділ покаже вам обхідний спосіб копіювання декількох зображень з робочого аркуша в форму користувача, а потім відобразить відповідне зображення в формі користувача, вибравши ім'я зображення у полі зі списком. Будь ласка, виконайте наступне.
1. Будь ласка, дотримуйтесь наведених вище кроків 1 та 2, щоб вставити форму користувача у свій аркуш.
2. Потім вставте a Керування кадрами в UserFrom, як показано на знімку екрана нижче:
3. Клацніть правою кнопкою миші на вставлену рамку та виберіть властивості з контекстного меню. У лівій властивості виберіть, будь ласка Помилковий від видимий поле. Дивіться знімок екрана:
4. Вставте кілька елементів керування зображеннями у кадр, як показано на знімку екрана.
5. Поверніться до робочого аркуша та виберіть зображення, яке ви хочете відобразити в User User, та натисніть Ctrl + C ключі для його копіювання.
6. Потрапити в Microsoft Visual Basic для додатків вікно, клацніть правою кнопкою миші перший елемент керування Зображення та виберіть властивості з меню, що клацне правою кнопкою миші. Дивіться показаний знімок екрана.
7 В властивості клацніть на панелі Картинка поле, потім натисніть Ctrl + V клавіші, щоб вставити зображення, скопійоване на кроці 5, а потім виберіть 1 - fmPictureSizeModeStrtch від PictureSizeMode випадаючий список, як показано на знімку екрана.
8. Повторіть кроки 5 - 7, щоб вставити інші зображення з робочого аркуша ліворуч елементи керування зображеннями в UserForm. І результат відобразиться, як показано на знімку екрана.
9. Перемістіть Кадр елемент керування до кута UserForm, а потім вставте новий зображення контроль та a Combo Box управління в UserForm. Дивіться знімок екрана:
10. Клацніть правою кнопкою миші Форма користувача, А потім натисніть Переглянути код. Потім скопіюйте та вставте нижче код VBA, щоб замінити оригінальний у вікно коду.
VBA code1: Скопіюйте зображення з робочого аркуша в Userform
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примітки: У коді, Форма користувача1 - ім'я вставленої форми користувача, Image4 - це ім’я елемента керування Зображення, в якому Ви будете відображати зображення всередині. І Image представляє всі елементи керування Image, які містять фотографії, скопійовані з аркуша. ComboBox1 - це ім’я комбінованого вікна, яке ви вставили в форму користувача. Будь ласка, змініть їх на власні.
11. Закрийте Microsoft Visual Basic для додатків вікна.
12. Вставте кнопку Command у аркуш, натиснувши Розробник > Insert > Кнопка керування (керування ActiveX).
13. Клацніть правою кнопкою миші командну кнопку та виберіть Переглянути код з контекстного меню. А потім скопіюйте та вставте наведений нижче код VBA у вікно коду. І нарешті закрийте вікно.
VBA code2: Скопіюйте зображення з робочого аркуша в Userform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. клацання Розробник > Режим дизайну щоб вимкнути режим проектування.
Відтепер, при натисканні кнопки команди, з’явиться UserForm. Ви можете відобразити зображення, вибравши ім'я зображення у списку. Дивіться знімок екрана:
Вибір різних назв у списку відображатиме різні зображення у UserForm.
Статті по темі:
- Як центрувати зображення в комірці Excel?
- Як перевірити, чи містить клітинка зображення в Excel?
- Як динамічно вставити зображення або зображення в комірку на основі значення комірки в Excel?
- Як збільшити зображення, натиснувши на нього в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
