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.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

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 Sub

Anmä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 Sub

15. 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?