วิธีแทรกภาพเดียวกันลงในแผ่นงานหลายแผ่นอย่างรวดเร็ว?
โดยปกติเราสามารถแทรกรูปภาพลงในแผ่นงานได้อย่างรวดเร็วโดยใช้ฟังก์ชันแทรกใน Excel แต่คุณเคยพยายามแทรกรูปภาพเดียวกันลงในแผ่นงานทั้งหมดของสมุดงานของคุณหรือไม่? บทความนี้ผมจะแนะนำวิธีการที่เป็นประโยชน์สำหรับคุณในการแก้ปัญหานี้
แทรกภาพเดียวกันลงในแผ่นงานทั้งหมดของสมุดงานด้วยรหัส VBA
แทรกภาพเดียวกันลงในแผ่นงานทั้งหมดของสมุดงานด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยให้คุณแทรกภาพลงในแผ่นงานทั้งหมดได้อย่างง่ายดายโปรดทำดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: แทรกรูปภาพเดียวกันลงในแผ่นงานทั้งหมด:
Sub InsertLogo()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\DT168\Desktop\pic\logo.png"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("A1")
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next
End Sub
หมายเหตุ: ในโค้ดด้านบน C:\Users\DT168\Desktop\pic\logo.png คือเส้นทางและชื่อรูปภาพของคุณและ A1 in Range("A1") คือเซลล์ที่คุณต้องการแทรกรูปภาพ โปรดเปลี่ยนเป็นเซลล์ของคุณเอง
3. จากนั้นกด F5 เพื่อเรียกใช้โค้ดนี้ จากนั้นรูปภาพเฉพาะจะถูกแทรกลงในทุกเซลล์ A1 ของเวิร์กชีตทั้งหมดในคราวเดียว ดูภาพหน้าจอ:
หมายเหตุ: รูปภาพที่แทรกจะถูกปรับให้พอดีกับขนาดเซลล์
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!