Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako kopirati sliko iz delovnega lista v uporabniško obliko v Excelu?

Ta članek vam bo pokazal načine kopiranja slike iz aktivnega delovnega lista na Userform v Excelu.

Kopirajte sliko iz delovnega lista v uporabniško obliko s kopiranjem in lepljenjem

Kopirajte sliko z delovnega lista na Userform s kodo VBA


Kopirajte sliko iz delovnega lista v uporabniško obliko s kopiranjem in lepljenjem


Prosimo, naredite naslednje, da kopirate sliko iz delovnega lista na Userform.

1. Premik na delovni list vsebuje sliko, ki jo želite kopirati v Userform, in nato pritisnite druga + F11 tipke skupaj, da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Uporabniški obrazec. Prikaz slike:

3. Zdaj prosimo, da vstavite nadzor slike v UserForm. Prosimo, kliknite na Image gumb v Toolbox pogovorno okno, nato pa potisnite nadzor slike v UserForm ročno. Prikaz slike:

4. Z desno miškino tipko kliknite vstavljeni nadzor slike in kliknite Nepremičnine iz kontekstnega menija prikazan spodaj:

5. Potem lahko vidite a Nepremičnine zaslona na levi strani Microsoft Visual Basic za aplikacije okno.

6. Pojdite nazaj na delovni list in izberite sliko, ki jo želite prikazati v Userformu, nato pa kopirajte sliko s pritiskom na Ctrl + C ključi.

7. Pojdi v Microsoft Visual Basic za aplikacije spet se pomaknite navzdol, da kliknete na Slika polje in nato prilepite ime kopirane slike vanj pod jezičkom Abecedno.

Zdaj se slika na delovnem listu kopira v Userform.


Kopirajte sliko z delovnega lista na Userform s kodo VBA

Ta odsek vam bo pokazal rešitev, če želite kopirati več slik iz delovnega lista v uporabniško obliko in nato prikazati ustrezno sliko v Userformu, tako da v polju Combo izberete ime slike. Prosimo, naredite na naslednji način.

1. Prosimo, upoštevajte zgornji koraki 1 in 2 o vstavite uporabniški obrazec na svoj delovni list.

2. Nato vstavite a Nadzor okvira v prikazno sliko UserFrom kot spodaj:

3. Z desno miškino tipko kliknite vstavljeni okvir in izberite Nepremičnine iz kontekstnega menija. Na levi strani Nepremičnine podokno, izberite False Iz vidno polje. Prikaz slike:

4. Vstavite več slikovni nadzor v okvir, kot je prikazano spodaj.

5. Pojdite nazaj na delovni list in izberite sliko, ki jo želite prikazati v Userform, in pritisnite Ctrl + C tipke za kopiranje.

6. Pojdi v Microsoft Visual Basic za aplikacije okno z desno miškino tipko kliknite prvi nadzor slike in izberite Nepremičnine iz menija z desnim klikom. Oglejte si prikaz slike.

7. V Ljubljani Nepremičnine podokno, kliknite na Slika polje, nato pritisnite Ctrl + V tipke za prilepite sliko, ki ste jo kopirali v koraku 5, in nato izberite 1 - fmPictureSizeModeStrtch Iz PictureSizeMode spustni seznam kot spodnji prikaz slike.

8. Ponovite korak 5 - 7, da prilepite druge slike iz delovnega lista v levo kontrolnike slike v UserFormu. Rezultat bo prikazan kot prikazano spodaj.

9. Premakni se Okvirji nadzor na kotu UserForm, nato pa vstavite novo Image nadzor in a Combo Box nadzor v UserForm. Prikaz slike:

10. Z desno miškino tipko kliknite UserFormIn nato Ogled kode. Nato kopirajte in prilepite pod kodo VBA, da zamenjate prvotno v okno Code.

VBA code1: Kopirajte sliko iz delovnega lista na 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

Opombe: V kodi, UserForm1 je ime vstavljene UserForm, Image4 je ime nadzornika slike, v katerem bodo prikazane slike. In Image predstavlja vse kontrole slike, ki vsebujejo slike, ki ste jih kopirali iz delovnega lista. ComboBox1 je ime kombinacije, ki ste ga vstavili v uporabniško obliko. Prosim, spremenite jih sami.

11. Zapri Microsoft Visual Basic za aplikacije okno.

12. V delovni list vstavite gumb za ukaz, tako da kliknete Razvojni > Vstavi > Gumb za urejanje (nadzor ActiveX).

13. Z desno miškino tipko kliknite ukazni gumb in izberite Ogled kode iz kontekstnega menija. In nato kopirajte in prilepite spodnjo kodo VBA v okno Code. In končno zaprite okno.

VBA code2: Kopirajte sliko iz delovnega lista na Userform

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. klik Razvojni > Način oblikovanja da izklopite način oblikovanja.

Od zdaj naprej, ko kliknete na ukazni gumb, se bo pojavila UserForm. Sliko lahko prikažete tako, da izberete ime slike iz kombiniranega polja. Prikaz slike:

Če izberete druga imena iz kombiniranega polja, bodo v UserFormu prikazane različne slike.


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.