Hur kopierar jag bild från kalkylblad till användarform i Excel?
Den här artikeln visar metoder för att kopiera en bild från det aktiva kalkylbladet till Userform i Excel.
Kopiera bilden från kalkylbladet till användarformuläret med kopiering och klistra in
Kopiera bilden från kalkylbladet till användarform med VBA-kod
Kopiera bilden från kalkylbladet till användarformuläret med kopiering och klistra in
Gör så här för att kopiera en bild från kalkylbladet till användarformuläret.
1. Flytta till kalkylbladet innehåller bilden du behöver kopiera till användarformuläret och tryck sedan på andra + F11 nycklar tillsammans för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Användarformulär. Se skärmdump:
3. Sätt nu in en bildkontroll i UserForm. Klicka på Bild knapp i Verktygslåda dialogrutan och rita sedan en bildkontroll i Userform manuellt. Se skärmdump:
4. Högerklicka på den infogade bildkontrollen och klicka Våra Bostäder från snabbmenyn som visas nedan:
5. Då kan du se a Våra Bostäder visas på vänster sida av Microsoft Visual Basic för applikationer fönster.
6. Gå tillbaka till kalkylbladet och välj den bild du vill visa i användarformuläret och kopiera sedan bilden genom att trycka på ctrl + C nycklar.
7. Gå in i Microsoft Visual Basic för applikationer bläddra igen för att klicka på Bild fältet och klistra sedan in det kopierade bildnamnet i det under fliken Alfabetisk.
Nu kopieras bilden i kalkylbladet till användarformuläret.
Kopiera bilden från kalkylbladet till användarform med VBA-kod
Det här avsnittet visar en lösning för att kopiera flera bilder från kalkylbladet till ett användarformulär och sedan visa motsvarande bild i användarformuläret genom att välja bildnamnet i en kombinationsruta. Gör så här.
1. Följ steg 1 och 2 ovan och infoga ett användarformulär i ditt kalkylblad.
2. Sätt sedan in a Ramkontroll in i UserFrom som nedan visas skärmdump:
3. Högerklicka på den infogade ramen och välj Våra Bostäder från snabbmenyn. Till vänster Våra Bostäder välj Falsk från Synlig fält. Se skärmdump:
4. Sätt in flera bildkontroller i ramen enligt nedanstående skärmdump.
5. Gå tillbaka till kalkylbladet och välj den bild du vill visa i användarformuläret och tryck på ctrl + C nycklar för att kopiera den.
6. Gå in i Microsoft Visual Basic för applikationer högerklicka på den första bildkontrollen och välj Våra Bostäder från högerklickmenyn. Se skärmdump som visas.
7. I Våra Bostäder Klicka på rutan Bild och tryck sedan på ctrl + V för att klistra in bilden du kopierade i steg 5 och välj sedan 1 - fmPictureSizeModeStrtch från PictureSizeMode rullgardinsmeny som visas nedan.
8. Upprepa steg 5 - 7 för att klistra in andra bilder från kalkylbladet till vänster Bildkontroller i UserForm. Och resultatet visas som bilden nedan visas.
9. Flytta Ram kontroll till hörnet av UserForm och infoga sedan en ny Bild kontroll och a Kombinationsrutan kontroll i UserForm. Se skärmdump:
10. Högerklicka på UserformOch klicka sedan på Visa kod. Kopiera och klistra sedan in under VBA-koden för att ersätta den ursprungliga i kodfönstret.
VBA-kod1: Kopiera bilden från kalkylbladet till användarformuläret
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 SubAnmärkningar: I koden, Användarformulär1 är namnet på det infogade användarformuläret, Image4 är namnet på bildkontrollen du kommer att visa bilder inuti. Och Bild representerar alla bildkontroller som innehåller bilderna du kopierade från kalkylbladet. Kombinationsbox 1 är combobox-namnet du har infogat i användarformuläret. Ändra dem till dina egna.
11. Stäng Microsoft Visual Basic för applikationer fönster.
12. Infoga en kommandoknapp i kalkylbladet genom att klicka Utvecklare > Insert > Kommandoknapp (ActiveX-kontroll).
13. Högerklicka på kommandoknappen och välj Visa kod från snabbmenyn. Och kopiera och klistra in nedanstående VBA-kod i kodfönstret. Och stäng till sist fönstret.
VBA-kod2: Kopiera bilden från kalkylbladet till användarformuläret
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. klick Utvecklare > Designläge för att stänga av designläget.
Från och med nu, när du klickar på kommandoknappen, kommer användarformuläret att dyka upp. Du kan visa bilden genom att välja bildnamnet från kombinationsrutan. Se skärmdump:
Välj olika namn från kombinationsrutan kommer att visa olika bilder i användarformuläret.
Relaterade artiklar:
- Hur centrerar jag en bild i en Excel-cell?
- Hur kontrollerar jag om en cell innehåller bild i Excel?
- Hur infogar jag bild eller bild dynamiskt i cellen baserat på cellvärde i Excel?
- Hur förstorar man bilden när man klickar på den i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
