วิธีคัดลอกรูปภาพจากแผ่นงานไปยังรูปแบบผู้ใช้ใน Excel
บทความนี้จะแสดงวิธีการคัดลอกรูปภาพจากแผ่นงานที่ใช้งานไปยัง Userform ใน Excel
คัดลอกภาพจากแผ่นงานไปยัง Userform ด้วยการคัดลอกและวาง
คัดลอกรูปภาพจากแผ่นงานไปยัง Userform ด้วยรหัส VBA
คัดลอกภาพจากแผ่นงานไปยัง Userform ด้วยการคัดลอกและวาง
โปรดทำดังนี้เพื่อคัดลอกรูปภาพจากแผ่นงานไปยัง Userform
1. Shift ไปที่แผ่นงานมีรูปภาพที่คุณต้องการคัดลอกไปยัง Userform จากนั้นกดปุ่ม อื่น ๆ + F11 คีย์ร่วมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก สิ่งที่ใส่เข้าไป > แบบฟอร์มผู้ใช้. ดูภาพหน้าจอ:
3. ตอนนี้โปรดใส่ Image Control ลงใน UserForm กรุณาคลิกที่ไฟล์ ภาพ ปุ่มใน กล่องเครื่องมือ จากนั้นวาด Image Control ลงในไฟล์ แบบฟอร์มผู้ใช้ ด้วยตนเอง ดูภาพหน้าจอ:
4. คลิกขวาที่ตัวควบคุมรูปภาพที่แทรกแล้วคลิก อสังหาริมทรัพย์ จากเมนูบริบทดังภาพด้านล่างที่แสดง:
5. จากนั้นคุณจะเห็นไฟล์ อสังหาริมทรัพย์ บานหน้าต่างจะแสดงทางด้านซ้ายของไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
6. กลับไปที่แผ่นงานและเลือกรูปภาพที่คุณต้องการแสดงใน Userform จากนั้นคัดลอกรูปภาพโดยการกด Ctrl + C กุญแจ
7. เข้าสู่ Microsoft Visual Basic สำหรับแอปพลิเคชัน อีกครั้งเลื่อนลงเพื่อคลิกไฟล์ ภาพ จากนั้นวางชื่อรูปภาพที่คัดลอกไว้ในแท็บตามตัวอักษร
ตอนนี้รูปภาพในแผ่นงานจะถูกคัดลอกไปยัง Userform
คัดลอกรูปภาพจากแผ่นงานไปยัง Userform ด้วยรหัส VBA
ส่วนนี้จะแสดงวิธีแก้ปัญหาในการคัดลอกรูปภาพหลาย ๆ ภาพจากแผ่นงานไปยังรูปแบบผู้ใช้จากนั้นแสดงภาพที่เกี่ยวข้องใน Userform โดยเลือกชื่อภาพจากกล่องคำสั่งผสม กรุณาดำเนินการดังนี้
1. โปรดทำตามขั้นตอนที่ 1 และ 2 ด้านบน o แทรก Userform ในแผ่นงานของคุณ
2. จากนั้นใส่ไฟล์ การควบคุมเฟรม ลงใน UserFrom ดังภาพด้านล่างที่แสดง:
3. คลิกขวาที่เฟรมที่แทรกแล้วเลือก อสังหาริมทรัพย์ จากเมนูบริบท ทางด้านซ้าย อสังหาริมทรัพย์ โปรดเลือกบานหน้าต่าง เท็จ จาก มองเห็นได้ ฟิลด์ ดูภาพหน้าจอ:
4. แทรกการควบคุมรูปภาพหลายภาพลงในเฟรมตามภาพด้านล่างที่แสดง
5. กลับไปที่แผ่นงานและเลือกรูปภาพที่คุณต้องการแสดงใน Userform แล้วกดปุ่ม Ctrl + C คีย์เพื่อคัดลอก
6. เข้าสู่ Microsoft Visual Basic สำหรับแอปพลิเคชัน คลิกขวาที่ Image control ตัวแรกแล้วเลือก อสังหาริมทรัพย์ จากเมนูคลิกขวา ดูภาพหน้าจอที่แสดง
7 ใน อสังหาริมทรัพย์ บานหน้าต่างโปรดคลิกที่ไฟล์ ภาพ จากนั้นกดปุ่ม Ctrl + V เพื่อวางรูปภาพที่คุณคัดลอกในขั้นตอนที่ 5 จากนั้นเลือก 1 - fmPictureSizeModeStrtch จาก โหมดขนาดภาพ รายการแบบเลื่อนลงตามภาพด้านล่างที่แสดง
8. ทำซ้ำขั้นตอนที่ 5 - 7 เพื่อวางรูปภาพอื่น ๆ จากแผ่นงานทางด้านซ้ายตัวควบคุมรูปภาพใน UserForm และผลลัพธ์จะแสดงดังภาพด้านล่างที่แสดง
9. ย้ายไฟล์ กรอบ ควบคุมไปที่มุมของ UserForm จากนั้นแทรกไฟล์ ภาพ ควบคุมและก กล่องคำสั่งผสม ควบคุมเข้าสู่ UserForm ดูภาพหน้าจอ:
10. คลิกขวาที่ไฟล์ แบบฟอร์มผู้ใช้และจากนั้นคลิก ดูรหัส. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างเพื่อแทนที่โค้ดเดิมลงในหน้าต่าง Code
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
หมายเหตุ: ในรหัส แบบฟอร์มผู้ใช้1 เป็นชื่อของ UserForm ที่แทรกไว้ Image4 เป็นชื่อของตัวควบคุมรูปภาพที่คุณจะแสดงรูปภาพภายใน และรูปภาพแสดงถึงตัวควบคุมรูปภาพทั้งหมดซึ่งมีรูปภาพที่คุณคัดลอกมาจากเวิร์กชีต คอมโบบ็อกซ์1 คือชื่อคอมโบบ็อกซ์ที่คุณได้แทรกลงในฟอร์มผู้ใช้ กรุณาเปลี่ยนเป็นของคุณเอง
11 ปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
12. แทรกปุ่มคำสั่งลงในแผ่นงานโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ActiveX Control).
13. คลิกขวาที่ปุ่มคำสั่งแล้วเลือก ดูรหัส จากเมนูบริบท จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโค้ด และปิดหน้าต่างในที่สุด
VBA code2: คัดลอกภาพจากแผ่นงานไปยัง Userform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15 คลิก ผู้พัฒนา > โหมดการออกแบบ เพื่อปิดโหมดการออกแบบ
จากนี้ไปเมื่อคลิกปุ่มคำสั่ง UserForm จะเด้งขึ้นมา คุณสามารถแสดงรูปภาพได้โดยเลือกชื่อรูปภาพจากกล่องคำสั่งผสม ดูภาพหน้าจอ:
เลือกชื่ออื่นจากกล่องคำสั่งผสมจะแสดงรูปภาพที่แตกต่างกันใน UserForm
บทความที่เกี่ยวข้อง:
- วิธีจัดกึ่งกลางรูปภาพในเซลล์ Excel
- วิธีตรวจสอบว่าเซลล์มีรูปภาพใน Excel หรือไม่?
- วิธีแทรกรูปภาพหรือรูปภาพแบบไดนามิกในเซลล์ตามค่าของเซลล์ใน Excel
- วิธีการขยายภาพเมื่อคลิกใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!