Hogyan másolhat képet a munkalapról a felhasználói formára az Excelben?
Ez a cikk bemutatja a kép másolásának módját az aktív munkalapról az Excel felhasználói formájába.
Kép másolása munkalapról Userform formátumba másolással és beillesztéssel
Kép másolása munkalapról VBA kóddal a Userformba
Kép másolása munkalapról Userform formátumba másolással és beillesztéssel
Kérjük, tegye a következőket, ha képet szeretne átmásolni a munkalapról a Userformba.
1. A Shift a munkalapra azt a képet tartalmazza, amelyet át kell másolnia a Userformba, majd nyomja meg a gombot más + F11 gombok együtt megnyitni a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Felhasználói űrlap. Lásd a képernyőképet:
3. Most helyezzen be egy képvezérlőt a UserForm-ba. Kattintson a gombra Kép gombot a Eszköztár párbeszédpanelt, majd rajzoljon egy Képvezérlőt a UserForm manuálisan. Lásd a képernyőképet:
4. Kattintson a jobb gombbal a beillesztett Képvezérlő elemre, majd kattintson a gombra Ingatlanok a helyi menüből, az alábbi képernyőképen:
5. Akkor láthatja a Ingatlanok ablaktábla jelenik meg a Microsoft Visual Basic for Applications ablak.
6. Térjen vissza a munkalapra, és válassza ki a felhasználói formában megjeleníteni kívánt képet, majd a gomb megnyomásával másolja át a képet Ctrl + C kulcsok.
7. Menj be a Microsoft Visual Basic for Applications ismét görgessen lefelé, és kattintson a gombra Kép mezőbe, majd illessze be a másolt kép nevét az Alphabetic fül alá.
Most a munkalap képét átmásolja a Userformba.
Kép másolása munkalapról VBA kóddal a Userformba
Ez a szakasz egy megoldást mutat be, amellyel több képet másolhat a munkalapról egy Userform-ba, majd a megfelelő képet megjelenítheti a Userform-ban, kiválasztva a kép nevét egy Combo mezőből. Kérjük, tegye a következőket.
1. Kérjük, kövesse a fenti 1. és 2. lépést. O Helyezzen be egy Felhasználói űrlapot a munkalapjába.
2. Ezután helyezze be a Keretvezérlés a UserFrom-ba az alábbi képernyőkép szerint:
3. Kattintson a jobb gombbal a behelyezett keretre, és válassza a lehetőséget Ingatlanok a helyi menüből. Balra Ingatlanok panelen, kérjük, válassza ki Hamis tól Látható terület. Lásd a képernyőképet:
4. Helyezzen több képvezérlőt a keretbe az alábbi képernyőkép szerint.
5. Térjen vissza a munkalapra, válassza ki a felhasználói formában megjeleníteni kívánt képet, majd nyomja meg a gombot Ctrl + C gombokat a másoláshoz.
6. Menj be a Microsoft Visual Basic for Applications ablakban kattintson a jobb gombbal az első Képvezérlő elemre, és válassza a lehetőséget Ingatlanok a jobb egérgombbal kattintva. Lásd a bemutatott képernyőképet.
7. Ban,-ben Ingatlanok ablaktáblán kattintson a gombra Kép mezőbe, majd nyomja meg a gombot Ctrl + V gombokat az 5. lépésben másolt kép beillesztéséhez, majd válassza a lehetőséget 1 - fmPictureSizeModeStrtch tól PictureSizeMode legördülő lista az alábbi képernyőképen látható.
8. Ismételje meg az 5–7. Lépéseket, hogy más képeket a munkalapról beillesszen a UserForm bal oldali Képvezérlőjébe. Az eredmény pedig az alábbi képernyőképen jelenik meg.
9. Mozgassa a Keret vezérlést a UserForm sarkához, majd helyezzen be egy újat Kép vezérlés és a Combo doboz vezérlés a UserForm-ba. Lásd a képernyőképet:
10. Kattintson a jobb gombbal a UserForm, Majd kattintson a Kód megtekintése. Ezután másolja be és illessze be a VBA kód alá, hogy az eredeti helyébe a Kód ablak lépjen.
VBA code1: Kép másolása munkalapról Userform-ba
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
Megjegyzések: A kódban Felhasználói forma1 a beillesztett UserForm neve, Image4 a képvezérlő neve, amelyen belül képeket jelenít meg. A Kép pedig minden képvezérlőt képvisel, amelyek a munkalapról másolt képeket tartalmazzák. Kombinált doboz 1 a combobox név, amelyet beillesztett a felhasználói formába. Kérjük, változtassa meg őket sajátjaira.
11. Csukja be a Microsoft Visual Basic for Applications ablak.
12. Kattintson a Parancs gombra a munkalapra kattintással Fejlesztő > betétlap > Parancs gomb (ActiveX vezérlő).
13. Kattintson a jobb gombbal a parancs gombra, és válassza a lehetőséget Kód megtekintése a helyi menüből. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablakba. És végül csukja be az ablakot.
VBA code2: Kép másolása munkalapról Userform-ba
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. kettyenés Fejlesztő > Tervezési mód a Tervezési mód kikapcsolásához.
Mostantól a parancs gombra kattintva megjelenik a UserForm. Kép megjelenítéséhez válassza ki a kép nevét a kombinációs mezőből. Lásd a képernyőképet:
Válasszon más neveket a kombinációs mezőből, amelyek különböző képeket jelenítenek meg a UserFormban.
Kapcsolódó cikkek:
- Hogyan központosítson képet egy Excel cellába?
- Hogyan ellenőrizhető, hogy egy cella tartalmaz-e képet az Excelben?
- Hogyan illesszünk be képet vagy képet dinamikusan a cellába az Excel cellája alapján?
- Hogyan lehet nagyítani a képet, amikor rákattint az Excel-ben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!