Note: The other languages of the website are Google-translated. Back to English
English English

Jak kopírovat obrázek z listu do formuláře uživatele v aplikaci Excel?

Tento článek vám ukáže způsoby kopírování obrázku z aktivního listu do Userform v aplikaci Excel.

Zkopírujte obrázek z listu do Userform pomocí kopírování a vkládání
Zkopírujte obrázek z listu do Userform pomocí kódu VBA


Zkopírujte obrázek z listu do Userform pomocí kopírování a vkládání


Při kopírování obrázku z listu do Userform postupujte takto.

1. Posuňte se na list obsahující obrázek, který potřebujete zkopírovat do Userform, a poté stiskněte Další + F11 klíče otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Formulář uživatele. Viz snímek obrazovky:

3. Nyní vložte ovládací prvek obrázku do UserForm. Klikněte prosím na Obraz tlačítko v Toolbox dialogové okno, pak nakreslete Image Control do UserForm ručně. Viz snímek obrazovky:

4. Klepněte pravým tlačítkem na vložený ovládací prvek Obrázek a klepněte na Nemovitosti z kontextové nabídky, jak je uvedeno níže, snímek obrazovky:

5. Pak můžete vidět a Nemovitosti podokno se zobrazí na levé straně okna Microsoft Visual Basic pro aplikace okno.

6. Vraťte se do listu a vyberte obrázek, který chcete zobrazit ve formuláři uživatele, a poté jej zkopírujte stisknutím Ctrl + C klíče.

7. Vstupte do Microsoft Visual Basic pro aplikace znovu přejděte dolů a klikněte na ikonu Obrázek pole a poté do něj vložte zkopírovaný název obrázku na kartě Abecední.

Nyní se obrázek v listu zkopíruje do Userform.


Zkopírujte obrázek z listu do Userform pomocí kódu VBA

Tato část vám ukáže řešení, jak zkopírovat více obrázků z listu do Userform a poté zobrazit odpovídající obrázek v Userform výběrem názvu obrázku z pole se seznamem. Postupujte prosím následovně.

1. Postupujte podle výše uvedených kroků 1 a 2 a vložte formulář Userform do svého listu.

2. Poté vložte a Ovládání rámu do obrazovky UserFrom, jak je uvedeno níže:

3. Klepněte pravým tlačítkem na vložený rámeček a vyberte Nemovitosti z kontextové nabídky. Vlevo Nemovitosti podokno, prosím vyberte Falešný z viditelný pole. Viz snímek obrazovky:

4. Vložte více ovládacích prvků obrázku do rámečku, jak je znázorněno na následujícím obrázku.

5. Vraťte se do listu, vyberte obrázek, který chcete zobrazit ve formuláři uživatele, a stiskněte Ctrl + C klíče k jeho kopírování.

6. Vstupte do Microsoft Visual Basic pro aplikace v okně, klepněte pravým tlačítkem na první ovládací prvek Image a vyberte Nemovitosti z nabídky pravého tlačítka myši. Zobrazit snímek obrazovky.

7. V Nemovitosti v podokně klikněte na Obrázek pole a stiskněte tlačítko Ctrl + V vložte obrázek, který jste zkopírovali v kroku 5, a poté vyberte 1 - fmPictureSizeModeStrtch z Režim PictureSize rozevírací seznam uvedený níže.

8. Opakujte kroky 5 až 7 a vložte další obrázky z listu do levé části Ovládací prvky obrázku v UserForm. Výsledek se zobrazí níže.

9. Přesuňte Rám ovládací prvek do rohu UserForm, pak vložte nový Obraz ovládání a Kombinovaný rámeček ovládání do UserForm. Viz screenshot:

10. Klepněte pravým tlačítkem na ikonu UserForm, A pak klepněte na tlačítko Zobrazit kód. Poté zkopírujte a vložte pod kód VBA, abyste původní nahradili do okna Kód.

Kód VBA1: Zkopírujte obrázek z listu do 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

Note: In the code, UserForm1 is the name of the inserted UserForm, Image4 is the name of the Image control you will display pictures inside. And Image represents all Image controls which contain the pictures you copied from the worksheet. ComboBox1 is the combobox name you have inserted into the userform. Please change them to your own.

11. Close the Microsoft Visual Basic for Applications window.

12. Insert a Command button into the worksheet by clicking Developer > Insert > Command Button (ActiveX Control).

13. Right-click the command button and select View Code from the Context menu. And then copy and paste the below VBA code into the Code window. And finally close the window.

VBA code2: Copy image from worksheet to Userform

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. Click Developer > Design Mode to turn off the Design Mode.

From now on, when clicking the command button, the UserForm will pop up. You can display picture by selecting the image name from the combo box. See screenshot:

Select different names from the combo box will display different pictures in the UserForm.


Related Articles:


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I'm having difficulties, can someone explain the code for me?
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations