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

워크 시트의 이미지를 Excel의 사용자 양식으로 복사하는 방법은 무엇입니까?

이 기사에서는 활성 워크 시트의 이미지를 Excel의 Userform으로 복사하는 방법을 보여줍니다.

복사 및 붙여 넣기를 사용하여 워크 시트에서 사용자 양식으로 이미지 복사
VBA 코드를 사용하여 워크 시트에서 사용자 양식으로 이미지 복사


복사 및 붙여 넣기를 사용하여 워크 시트에서 사용자 양식으로 이미지 복사

워크 시트에서 Userform으로 이미지를 복사하려면 다음과 같이하십시오.

1. Userform에 복사해야하는 이미지가있는 워크 시트로 이동 한 다음 다른 + F11 열려면 함께 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭하십시오 끼워 넣다 > 사용자 양식. 스크린 샷보기 :

3. 이제 UserForm에 이미지 컨트롤을 삽입하십시오. 클릭하십시오 영상 버튼의 도구 상자 대화 상자에 이미지 컨트롤을 그립니다. 사용자 정의 폼 수동으로. 스크린 샷보기 :

4. 삽입 된 이미지 컨트롤을 마우스 오른쪽 단추로 클릭하고 등록 아래 스크린 샷과 같이 컨텍스트 메뉴에서 :

5. 그러면 당신은 등록 창 왼쪽에 표시됩니다. 응용 프로그램 용 Microsoft Visual Basic 창.

6. 워크 시트로 돌아가서 사용자 양식에 표시 할 사진을 선택한 다음를 눌러 사진을 복사합니다. Ctrl 키 + C 열쇠.

7. 들어가다 응용 프로그램 용 Microsoft Visual Basic 다시 아래로 스크롤하여 그림 필드에 복사 한 그림 이름을 알파벳 탭 아래에 붙여 넣습니다.

이제 워크 시트의 그림이 사용자 양식에 복사됩니다.


VBA 코드를 사용하여 워크 시트에서 사용자 양식으로 이미지 복사

이 섹션에서는 워크 시트에서 사용자 양식으로 여러 그림을 복사 한 다음 콤보 상자에서 그림 이름을 선택하여 사용자 양식에 해당 그림을 표시하는 해결 방법을 보여줍니다. 다음과 같이하십시오.

1. 위의 1 단계와 2 단계를 따라 워크 시트에 사용자 양식을 삽입하십시오.

2. 그런 다음 프레임 제어 아래 스크린 샷과 같이 UserFrom으로 :

3. 삽입 된 프레임을 마우스 오른쪽 버튼으로 클릭하고 등록 상황에 맞는 메뉴에서. 왼쪽에 등록 창, 선택하십시오 거짓 인사말 명백한 들. 스크린 샷보기 :

4. 아래 스크린 샷과 같이 여러 이미지 컨트롤을 프레임에 삽입합니다.

5. 워크 시트로 돌아가서 사용자 양식에 표시 할 사진을 선택하고 Ctrl 키 + C 키를 눌러 복사하십시오.

6. 들어가다 응용 프로그램 용 Microsoft Visual Basic 창에서 첫 번째 이미지 컨트롤을 마우스 오른쪽 버튼으로 클릭하고 등록 오른쪽 클릭 메뉴에서. 표시된 스크린 샷을 참조하십시오.

7. 에서 등록 창을 클릭하십시오. 그림 필드를 누른 다음 Ctrl 키 + V 키를 눌러 5 단계에서 복사 한 사진을 붙여 넣은 다음 1 - fmPictureSizeModeStrtch 인사말 사진 크기 모드 아래 스크린 샷과 같이 드롭 다운 목록이 표시됩니다.

8. 워크 시트의 다른 그림을 UserForm의 왼쪽 이미지 컨트롤에 붙여 넣으려면 5-7 단계를 반복합니다. 결과는 아래 스크린 샷과 같이 표시됩니다.

9. 이동 캐노피 프레임 컨트롤을 UserForm의 모서리에 놓은 다음 새 영상 제어 및 콤보 박스 컨트롤을 UserForm에 추가합니다. 스크린 샷보기 :

10. 마우스 오른쪽 버튼으로 사용자 정의 폼다음을 클릭합니다 코드보기. 그런 다음 VBA 코드 아래에 복사하여 붙여 넣어 원래 코드를 코드 창에 바꿉니다.

VBA code1 : 워크 시트에서 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-2021 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

Follow Us

Copyright © 2009 - www.extendoffice.com. | All rights reserved. Powered by ExtendOffice. | Sitemap
Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.
Protected by Sectigo SSL