Как да копирате изображение от работен лист в потребителски формуляр в Excel?
Тази статия ще ви покаже методи за копиране на изображение от активния работен лист в Userform в Excel.
Копирайте изображение от работен лист в Userform с копиране и поставяне
Копирайте изображение от работен лист в Userform с VBA код
Копирайте изображение от работен лист в Userform с копиране и поставяне
Моля, направете следното, за да копирате изображение от работен лист в Userform.
1. Shift към работния лист съдържа изображението, което трябва да копирате в Userform, и след това натиснете Друг + F11 ключове заедно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, моля щракнете Поставете > Потребителска форма. Вижте екранна снимка:
3. Сега, моля, вмъкнете контрола на изображението в потребителския формуляр. Моля, щракнете върху Изображение бутон в Toolbox диалогов прозорец, след което начертайте контрола на изображението в Потребителски формуляр ръчно. Вижте екранна снимка:
4. Щракнете с десния бутон върху вмъкнатата контрола за изображение и щракнете Имоти от контекстното меню, както е показано на екранната снимка по-долу:
5. След това можете да видите a Имоти прозорецът се показва от лявата страна на Microsoft Visual Basic за приложения прозорец.
6. Върнете се в работния лист и изберете картината, която искате да покажете в потребителската форма, и след това копирайте картината, като натиснете Ctrl + C ключове.
7. Влезте в Microsoft Visual Basic за приложения отново, превъртете надолу, за да щракнете върху Снимка и след това поставете копираното име на картина в него под раздела Азбучен ред.
Сега картината в работния лист се копира в Userform.
Копирайте изображение от работен лист в Userform с VBA код
Този раздел ще ви покаже заобиколно решение за копиране на множество картини от работен лист в потребителска форма и след това показване на съответната картина в потребителската форма, като изберете името на картината от разгъващ се списък. Моля, направете следното.
1. Моля, следвайте горните стъпки 1 и 2 за вмъкване на потребителска форма във вашия работен лист.
2. След това поставете a Управление на рамката в UserFrom, както е показано на екранната снимка по-долу:
3. Щракнете с десния бутон върху вмъкнатата рамка и изберете Имоти от контекстното меню. В ляво Имоти панел, моля изберете Фалшив от Видим поле. Вижте екранна снимка:
4. Вмъкнете контрола за множество изображения в рамката, както е показано на екранната снимка по-долу.
5. Върнете се в работния лист и изберете картината, която искате да покажете в Userform, и натиснете Ctrl + C ключове за копиране.
6. Влезте в Microsoft Visual Basic за приложения прозорец, щракнете с десния бутон върху първата контрола за изображение и изберете Имоти от менюто с десен бутон. Вижте показаната екранна снимка.
7. В Имоти прозорец, моля, щракнете върху Снимка поле, след което натиснете Ctrl + V клавиши, за да поставите снимката, която сте копирали в стъпка 5, и след това изберете 1 – fmPictureSizeModeStrtch от PictureSizeMode падащ списък, както е показано на екранната снимка по-долу.
8. Повторете стъпки 5 - 7, за да поставите други картини от работния лист в левия контрол на изображението в UserForm. И резултатът ще се покаже, както е показано на екранната снимка по-долу.
9. Преместете Рамка контрола до ъгъла на UserForm, след което вмъкнете нов Изображение контрол и а Комбо кутия контрол в 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 е името на вмъкнатия UserForm, Image4 е името на контролата Image, в която ще показвате картини. Изображението представлява всички контроли на изображението, които съдържат снимките, които сте копирали от работния лист. ComboBox1 е името на падащия списък, който сте вмъкнали в потребителския формуляр. Моля, променете ги със свои.
11. Затворете Microsoft Visual Basic за приложения прозорец.
12. Вмъкнете команден бутон в работния лист чрез щракване Софтуерен Инженер > Поставете > Команден бутон (ActiveX Control).
13. Щракнете с десния бутон върху командния бутон и изберете Преглед на кода от контекстното меню. След това копирайте и поставете VBA кода по-долу в прозореца на кода. И накрая затворете прозореца.
VBA code2: Копирайте изображение от работен лист в Userform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. кликване Софтуерен Инженер > Режим на проектиране за да изключите режима на проектиране.
Отсега нататък, когато щракнете върху командния бутон, UserForm ще изскочи. Можете да покажете картина, като изберете името на изображението от падащото поле. Вижте екранна снимка:
Изберете различни имена от падащото поле, което ще покаже различни картини в UserForm.
Свързани членове:
- Как да центрирам картина в клетка на Excel?
- Как да проверя дали клетка съдържа картина в Excel?
- Как да вмъкнете изображение или картина динамично в клетка въз основа на стойността на клетката в Excel?
- Как да увелича изображението, когато щракнете върху него в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!