Ինչպե՞ս պատճենել պատկերը Excel- ում աշխատաթերթից օգտագործողի ձև:
Այս հոդվածը ձեզ ցույց կտա Excel- ում ակտիվ աշխատանքային թերթիկից պատկերի պատճենման մեթոդներ:
Պատճենը պատճենեք և տեղադրեք աշխատանքային թերթից Userform
Պատկեր պատճենեք աշխատանքային թերթից Userform- ին ՝ VBA կոդով
Պատճենը պատճենեք և տեղադրեք աշխատանքային թերթից Userform
Խնդրում ենք վարվել հետևյալ կերպ ՝ աշխատանքային թերթից նկարը Userform- ին պատճենելու համար:
1. Անցում դեպի աշխատանքային թերթը պարունակում է այն պատկերը, որը դուք պետք է պատճենեք Userform- ին և այնուհետև սեղմեք այն ալտ + F11 ստեղները միասին բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Օգտագործողի ձև, Տեսեք,
3. Այժմ խնդրում ենք տեղադրեք Image Control- ի UserForm- ի մեջ: Խնդրում ենք սեղմել պատկեր կոճակը Այստեղ հղվող էջերը երկխոսության տուփ, այնուհետև նկարի Կառավարիչ ներկիր Օգտագործողի ձև ձեռքով Տեսեք,
4. Աջ կտտացրեք տեղադրված Պատկերի կառավարումը և կտտացրեք Հատկություններ համատեքստային ընտրացանկից, ինչպես ցույց է տրված ստորև նշված նկարը.
5. Ապա դուք կարող եք տեսնել ա Հատկություններ պատուհանը ցուցադրում է ձախ կողմում Microsoft Visual Basic հավելվածների համար պատուհան.
6. Վերադարձեք աշխատաթերթը և ընտրեք այն նկարը, որը ցանկանում եք ցուցադրել Օգտագործողի ձևում, ապա պատճենել նկարը ՝ սեղմելով Ctrl + C ստեղները:
7. Մտիր Microsoft Visual Basic հավելվածների համար կրկին, ոլորեք ներքև ՝ կտտացնելու համար Պատկեր դաշտը և այնուհետեւ կպցրեք պատճենված պատկերի անունը դրա մեջ Այբբենական ցուցանակի տակ:
Այժմ աշխատանքային էջի նկարը պատճենվում է Userform- ում:
Պատկեր պատճենեք աշխատանքային թերթից Userform- ին ՝ VBA կոդով
Այս բաժինը ձեզ ցույց կտա մի լուծում, որպեսզի աշխատաթերթից բազմաթիվ նկարներ պատճենեք Userform- ին, ապա համապատասխան նկարը ցուցադրեք Userform- ում `Combo վանդակում ընտրելով նկարի անունը: Խնդրում եմ արեք հետևյալ կերպ.
1. Խնդրում ենք հետևել վերոնշյալ 1-ին և 2-րդ քայլերին, ձեր աշխատաթերթում տեղադրեք Userform:
2. Դրանից հետո տեղադրեք ա Շրջանակի վերահսկում մեջ UserFrom- ից, ինչպես ցույց է տրված ստորև նշված նկարը.
3. Ներդրված Շրջանակի վրա աջ կտտացրեք և ընտրեք Հատկություններ համատեքստային ընտրացանկից: Ձախ կողմում Հատկություններ պատուհանը, խնդրում ենք ընտրել Կեղծ - ից Տեսանելի դաշտային Տեսեք,
4. Տեղադրեք բազմակի պատկերի հսկողություն Շրջանակի մեջ, ինչպես ցույց է տրված ստորև նշված նկարը:
5. Վերադարձեք աշխատանքային թերթը և ընտրեք այն նկարը, որը ցանկանում եք ցուցադրել Օգտագործողի ձևում և սեղմել այն Ctrl + C կրկնօրինակները:
6. Մտիր Microsoft Visual Basic հավելվածների համար պատուհանը, աջով կտտացրեք առաջին Պատկերի կառավարմանը և ընտրեք Հատկություններ աջ կտտացնելու ցանկից: Տեսեք ցուցադրված նկարը
7. Մեջ Հատկություններ պատուհանը, խնդրում ենք սեղմել Պատկեր դաշտը, ապա սեղմել Ctrl + V ստեղները ՝ 5-րդ քայլին ձեր պատճենած նկարը տեղադրելու համար, ապա ընտրեք 1 - fmPictureSizeModeStrtch - ից PictureSizeMode բացվող ցուցակը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
8. Կրկնեք 5-7-րդ քայլը `UserForm- ում այլ նկարներ աշխատաթերթից ձախ տեղադրելու համար Պատկերի վերահսկման համար: Եվ արդյունքը կցուցադրվի, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
9. Տեղափոխել Շրջանակ վերահսկել UserForm- ի անկյունը, ապա տեղադրել նորը պատկեր հսկողություն և ա Կոմպլեկտ վերահսկողություն UserForm- ում: Տեսեք,
10. Սեղմեք աջով Օգտագործողի ձև, ապա սեղմեք Դիտել կոդը, Դրանից հետո պատճենեք և կպցրեք VBA կոդի տակ, որպեսզի բնօրինակը փոխարինվի օրենսգրքի պատուհանում:
VBA կոդ 1. Պատկեր պատճենեք աշխատանքային թերթից 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
ՆշումԿոդում, UserForm1 տեղադրված UserForm-ի անունն է, Image4 Պատկերի հսկիչի անունն է, որի ներսում նկարները կցուցադրվեն: Իսկ Image-ը ներկայացնում է Պատկերի բոլոր հսկիչները, որոնք պարունակում են այն նկարները, որոնք պատճենել եք աշխատաթերթից: ComboBox1- ը այն համակցված տուփի անունն է, որը դուք մտցրել եք օգտվողի ձևի մեջ: Խնդրում ենք փոխել դրանք ձեր սեփականով:
11. Փակեք այն Microsoft Visual Basic հավելվածների համար պատուհան.
12. Տեղադրեք Command կոճակը աշխատաթերթի մեջ՝ սեղմելով Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման).
13. Աջ սեղմեք հրամանի կոճակը և ընտրեք Դիտել կոդը Համատեքստի ընտրացանկից: Այնուհետև պատճենեք և տեղադրեք ստորև նշված VBA կոդը Code պատուհանում: Եվ վերջապես փակիր պատուհանը։
VBA կոդ 2. Պատկեր պատճենեք աշխատանքային թերթից Userform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15: սեղմեք Երեվակիչ > Դիզայնի ռեժիմ Դիզայնի ռեժիմն անջատելու համար:
Այսուհետ հրամանի կոճակը սեղմելիս կհայտնվի UserForm-ը: Դուք կարող եք նկար ցուցադրել՝ ընտրելով պատկերի անունը համակցված տուփից: Տես սքրինշոթը.
Ընտրեք տարբեր անուններ համակցված տուփից, կցուցադրվեն տարբեր նկարներ UserForm-ում:
Related Articles:
- Ինչպե՞ս կենտրոնացնել նկարը Excel խցում:
- Ինչպե՞ս ստուգել, արդյոք բջիջը պարունակում է նկար Excel- ում:
- Ինչպե՞ս Excel- ում բջիջի մեջ դինամիկ կերպով տեղադրել նկարը կամ նկարը:
- Ինչպե՞ս մեծացնել պատկերը Excel- ում կտտացնելիս:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: