Hvordan kopieres billede fra regneark til brugerform i Excel?
Denne artikel viser dig metoder til at kopiere et billede fra det aktive regneark til brugerform i Excel.
Kopier billede fra regneark til brugerformular med kopiering og indsættelse
Kopier billede fra regneark til brugerformular med VBA-kode
Kopier billede fra regneark til brugerformular med kopiering og indsættelse
Gør som følger for at kopiere et billede fra regnearket til brugerformularen.
1. Skift til regnearket indeholder det billede, du skal kopiere til brugerformular, og tryk derefter på andre + F11 nøgler sammen for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Brugerform. Se skærmbillede:
3. Indsæt nu en billedkontrol i UserForm. Klik på Billede knappen i Værktøjskasse dialogboksen, og træk derefter en billedkontrol ind i Brugerformular manuelt. Se skærmbillede:
4. Højreklik på det indsatte billedkontrol, og klik Ejendomme fra kontekstmenuen som vist nedenstående skærmbillede:
5. Så kan du se en Ejendomme ruden vises i venstre side af Microsoft Visual Basic til applikationer vindue.
6. Gå tilbage til regnearket, og vælg det billede, du vil vise i brugerformularen, og kopier derefter billedet ved at trykke på Ctrl + C nøgler.
7. Kom ind i Microsoft Visual Basic til applikationer igen, rul ned for at klikke på Billede felt, og indsæt derefter det kopierede billednavn i det under fanen Alfabetisk.
Nu kopieres billedet i regnearket til brugerformularen.
Kopier billede fra regneark til brugerformular med VBA-kode
Dette afsnit viser dig en løsning til at kopiere flere billeder fra regneark til en brugerformular og derefter vise det tilsvarende billede i brugerformularen ved at vælge billednavnet i et kombinationsfelt. Gør som følger.
1. Følg ovenstående trin 1 og 2 o Indsæt en brugerformular i dit regneark.
2. Indsæt derefter a Rammekontrol ind i UserFrom som vist nedenstående skærmbillede:
3. Højreklik på den indsatte ramme, og vælg Ejendomme fra genvejsmenuen. I venstre side Ejendomme rude, vælg venligst False fra Synlig Mark. Se skærmbillede:
4. Indsæt flere billedkontroller i rammen som vist nedenstående skærmbillede.
5. Gå tilbage til regnearket, og vælg det billede, du vil have vist i brugerformularen, og tryk på Ctrl + C nøgler til at kopiere den.
6. Kom ind i Microsoft Visual Basic til applikationer vindue, skal du højreklikke på den første billedkontrol og vælge Ejendomme fra højreklikmenuen. Se skærmbillede vist.
7. i Ejendomme skal du klikke på Billede felt, og tryk derefter på Ctrl + V for at indsætte det billede, du kopierede i trin 5, og vælg derefter 1 - fmPictureSizeModeStrtch fra PictureSizeMode rulleliste som vist nedenstående skærmbillede.
8. Gentag trin 5 - 7 for at indsætte andre billeder fra regnearket til venstre billedkontrol i UserForm. Og resultatet vises som vist nedenstående skærmbillede.
9. Flyt Frame kontrol til hjørnet af UserForm, og indsæt derefter en ny Billede kontrol og en Kombinationsfelt kontrol i UserForm. Se skærmbillede:
10. Højreklik på Brugerformular, Og klik derefter på Vis kode. Kopier og indsæt derefter under VBA-kode for at erstatte den originale i kodevinduet.
VBA-kode1: Kopier billede fra regneark til brugerform
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
Bemærk: I koden, Brugerformular1 er navnet på den indsatte brugerformular, Image4 er navnet på den billedkontrol, du vil vise billeder inde i. Og Billede repræsenterer alle billedkontroller, som indeholder de billeder, du kopierede fra regnearket. Kombinationsboks 1 er det combobox-navn, du har indsat i brugerformularen. Skift dem venligst til dine egne.
11. Luk Microsoft Visual Basic til applikationer vindue.
12. Indsæt en kommandoknap i regnearket ved at klikke Udvikler > indsatte > Kommando-knap (ActiveX-kontrol).
13. Højreklik på kommandoknappen og vælg Vis kode fra kontekstmenuen. Og kopier derefter og indsæt nedenstående VBA-kode i kodevinduet. Og luk endelig vinduet.
VBA-kode2: Kopier billede fra regneark til brugerform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. klik Udvikler > Design Mode for at slå designtilstanden fra.
Fra nu af, når du klikker på kommandoknappen, vil UserForm dukke op. Du kan vise billedet ved at vælge billednavnet fra kombinationsboksen. Se skærmbillede:
Vælg forskellige navne fra kombinationsboksen vil vise forskellige billeder i brugerformularen.
Relaterede artikler:
- Hvordan centrerer jeg et billede i en Excel-celle?
- Hvordan kontrolleres, om en celle indeholder billede i Excel?
- Hvordan indsættes billede eller billede dynamisk i celle baseret på celleværdi i Excel?
- Hvordan forstørres billedet, når man klikker på det i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!