วิธีแทรกรูปภาพลงในเซลล์โดยใช้ VBA ใน Excel

คุณสามารถแทรกรูปภาพลงในสเปรดชีต Excelและแก้ไขด้วยโค้ดมาโครได้ อย่างง่ายดาย ต่อ ไปนี้เป็นวิธีแทรกรูปภาพลงในเซลล์โดยใช้VBA ใน Excel

วิธีแทรกรูปภาพลงในเซลล์โดยใช้ VBA ใน Excel

Visual Basic for Applications หรือเรียกโดยย่อว่า VBA เป็นรูปแบบหนึ่งของ Visual Basic 6 ที่รวมอยู่ในโปรแกรม Microsoft Office ด้วยการเข้ารหัส VBA ช่วยให้คุณสามารถทำงานอัตโนมัติในแอปพลิเคชัน Office รวมถึง Excel ในบางกรณี คุณสามารถเพิ่มคุณลักษณะใหม่ลงใน Excel โดยใช้ VBA ได้

แม้ว่าคุณจะต้องทำงานกับโค้ดเพื่อใช้ VBA แต่นั่นไม่ได้หมายความว่า VBA จะเต็มไปด้วยตัวอักษรและตัวเลข ด้วย VBA ใน Excel คุณสามารถสร้างแมโครที่ให้คุณแทรกรูปภาพลงในเซลล์หรือช่วงของเซลล์ได้ ต่อไปนี้คือสิ่งที่คุณต้องรู้เกี่ยวกับการแทรกรูปภาพลงในเซลล์ใน Excel โดยใช้ VBA

วิธีแทรกรูปภาพลงในเซลล์โดยใช้ VBA ใน Excel

หากต้องการสร้างแมโครที่แทรกรูปภาพลงในเซลล์ Excel โดยใช้ VBA คุณไม่จำเป็นต้องมีความรู้ Visual Basic ขั้นสูงใดๆ สิ่งที่คุณต้องทำคือเปิดเครื่องมือสำหรับนักพัฒนา สร้างมาโคร และวางโค้ดที่เหมาะสม แน่นอน คุณยังสามารถแทรกรูปภาพลงใน Excel ได้โดยไม่ต้องใช้ VBA อย่างไรก็ตาม ในบทความนี้ เราจะเน้นที่ VBA

1. เปิดเครื่องมือสำหรับนักพัฒนา

หากต้องการใช้ VBA ใน Excel คุณต้องเปิดใช้งานเครื่องมือสำหรับนักพัฒนา การดำเนินการนี้จะเปิดใช้งานแท็บนักพัฒนาใน Ribbon ซึ่งถูกปิดใช้งานตามค่าเริ่มต้น

  1. เปิดExcel _
  2. ไป ที่เมนูไฟล์
  3. คลิกตัวเลือกที่ด้านล่างของหน้าจอ หน้าต่างตัวเลือกของ Excelจะปรากฏขึ้น
  4. ในตัวเลือกของ Excel ให้ไปที่ แท็บ กำหนด Ribbonเอง
  5. ในแท็บหลักให้ตรวจสอบDeveloper

วิธีแทรกรูปภาพลงในเซลล์โดยใช้ VBA ใน Excel

ขณะนี้เครื่องมือสำหรับนักพัฒนา รวมถึงการเข้าถึง VBA ถูกเปิดใช้งานแล้ว คุณไม่จำเป็นต้องทำเช่นนี้ทุกครั้งที่คุณต้องการใช้ VBA ใน Excel เครื่องมือสำหรับนักพัฒนาซอฟต์แวร์จะถูกเปิดใช้งานเสมอจนกว่าคุณจะปิดการใช้งาน

2. สร้างมาโครและใส่โค้ด

  1. ใน Excel ให้ไปที่ แท็บ นักพัฒนา
  2. ในส่วนรหัส ให้เลือกมาโคร
  3. ในหน้าต่างใหม่ ให้ป้อนชื่อมาโครของคุณในชื่อมาโคร บทความนี้จะใช้insertPhotoMacro
  4. คลิกสร้าง _

วิธีแทรกรูปภาพลงในเซลล์โดยใช้ VBA ใน Excel

หลังจากคลิกสร้าง หน้าต่าง VBA จะเปิดขึ้นและแสดงโค้ดสำหรับมาโครของคุณ ปัจจุบันโค้ดจะประกอบด้วย 2 บรรทัด: Subเพื่อเริ่มมาโคร และEnd Subเพื่อสิ้นสุด

วิธีแทรกรูปภาพลงในเซลล์โดยใช้ VBA ใน Excel

เพิ่มโค้ดเล็กๆ น้อยๆ ให้กับมาโครนี้ เพิ่มบรรทัดโค้ดต่อไปนี้ระหว่างสองบรรทัด:

Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With

รหัสสุดท้ายจะมีลักษณะดังนี้:

วิธีแทรกรูปภาพลงในเซลล์โดยใช้ VBA ใน Excel

คุณไม่จำเป็นต้องกังวลเกี่ยวกับการบันทึกกระบวนการนี้ การเปลี่ยนแปลงใดๆ ที่คุณทำใน VBA จะถูกบันทึกทันที

ถึงเวลาดูโค้ดที่ใช้งานจริงแล้ว:

  1. ปิดหน้าต่าง VBA
  2. ไปที่ แท็บนักพัฒนาใน Excel
  3. เลือกมาโครจากส่วนรหัส
  4. ไฮไลต์มาโครที่คุณเพิ่งสร้างขึ้น
  5. คลิกเรียกใช้

ตอนนี้ข้อความจะเปิดขึ้นเพื่อขอให้คุณค้นหาไฟล์ภาพที่คุณต้องการแทรก เลือกรูปภาพ จากนั้นคลิกเปิด ตอนนี้คุณจะเห็นภาพในเซลล์ A1

หมายเหตุ Excel จะย่อรูปภาพให้พอดีกับเซลล์ A1 คุณสามารถเปลี่ยนและเปลี่ยนโค้ดเพื่อแทรกรูปภาพลงในเซลล์อื่น แม้แต่ช่วงของเซลล์ก็ได้ ในส่วนถัดไป เราจะแยกโค้ดและอธิบายพารามิเตอร์

3. แยกรหัส

เพื่อให้โค้ด VBA ทำงานตามที่คุณต้องการ คุณต้องเข้าใจก่อน เมื่อทำเช่นนี้ คุณสามารถเปลี่ยนโค้ดเพื่อแทรกรูปภาพลงในเซลล์ใดก็ได้ทุกขนาด

Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

เมื่อโค้ดเริ่มต้นขึ้น คำสั่ง Dim จะถูกนำมาใช้เพื่อกำหนดประเภทของตัวแปร เรามีตัวแปรสองประเภท: photoNameAndPathและphoto เริ่มจากตัวแปรก่อนแล้วจึงตามด้วยรูปภาพ

จากนั้น ตัวแปร photoNameAndPathจะทำงาน และจะเปิดแอปพลิเคชันเพื่อรับตำแหน่งของไฟล์รูปภาพ ซึ่งทำได้ผ่านทางApplication.GetOpenFileName พารามิเตอร์Titleเป็นทางเลือก เนื้อหาภายในจะแสดงเป็นชื่อหน้าต่าง

การใช้If photoNameAndPath = False then Exit Subหากระบุที่อยู่ที่ไม่ถูกต้องหรือว่างเปล่า กระบวนการจะสิ้นสุด อย่างไรก็ตาม หากมีไฟล์ที่เหมาะสมSet photo = ActiveSheet.Pictures.Insert(photoNameAndPath)บ่งชี้ว่ารูปภาพควรได้รับการตั้งค่าเป็นตัวแปรตามที่กำหนดไว้ตั้งแต่แรก มันจะถูกแทรกลงในแผ่นงานที่ใช้งานอยู่

สุดท้าย ใช้ With photo และเส้น 5 เส้นหลังจากนั้นเพื่อระบุตำแหน่งของรูปภาพ .ด้านซ้ายและ.ด้านบนหมายถึงตำแหน่งเริ่มต้น ในขณะที่.ความกว้างและ.ความสูงหมายถึงตำแหน่งสิ้นสุด หากคุณต้องการแทรกรูปภาพลงในเซลล์หรือช่วงอื่น คุณควรเปลี่ยนเส้นเหล่านี้

.ตำแหน่งบ่งชี้ว่ารูปภาพควรปรับขนาดให้พอดีกับเซลล์หรือแทรกรูปแบบอิสระ การตั้งค่าเป็น1จะปรับขนาดตามเซลล์

สุดท้ายโค้ดด้านบนใช้End Withจากนั้นEnd Subเพื่อปิดแมโคร ตอนนี้คุณสามารถเปลี่ยนตัวแปรphotoNameAndPathและรูปภาพเป็นชื่ออื่น ๆ ที่คุณต้องการได้ เพียงจำไว้ว่าให้ชื่อสอดคล้องกันตลอดทั้งโค้ด

ด้านบนนี้เป็นวิธีการใช้ VBA เพื่อแทรกรูปภาพลงในเซลล์ใน Excel หวังว่าบทความนี้จะเป็นประโยชน์กับคุณ

Sign up and earn $1000 a day ⋙

วิธีค้นหาผู้ที่เลิกติดตามคุณบน Instagram

วิธีค้นหาผู้ที่เลิกติดตามคุณบน Instagram

แม้ว่า Instagram จะแจ้งเตือนคุณทุกครั้งที่มีผู้ใช้รายอื่นติดตามคุณ คุณจะไม่รู้ว่ามีคนเลิกติดตามคุณหรือไม่ เว้นแต่คุณจะตรวจสอบโปรไฟล์ของคุณ ในขณะที่

วิธีติดต่อฝ่ายบริการลูกค้าของ Amazon

วิธีติดต่อฝ่ายบริการลูกค้าของ Amazon

คุณต้องการความช่วยเหลือเกี่ยวกับปัญหาที่เกี่ยวข้องกับ Amazon และไม่รู้ว่าจะติดต่อใครหรือไม่? ค้นหาทุกช่องทางในการติดต่อฝ่ายสนับสนุนลูกค้าของ Amazon

วิธีเพิ่มผู้ใช้ใหม่ใน HubSpot

วิธีเพิ่มผู้ใช้ใหม่ใน HubSpot

หากคุณกำลังเริ่มต้นหรือขยายธุรกิจ คุณต้องมีวิธีที่มีประสิทธิภาพในการจัดการทีมและแผนกต่างๆ แบ่งปันข้อมูล จัดการขั้นตอนการทำงาน และ

จะบอกได้อย่างไรว่ามีคนเห็นคนล่าสุดบน Snapchat เมื่อใด

จะบอกได้อย่างไรว่ามีคนเห็นคนล่าสุดบน Snapchat เมื่อใด

Snapchat ภูมิใจในการเป็นแพลตฟอร์มโซเชียลมีเดียที่ซื่อสัตย์ที่สุด มันมีฟีเจอร์และข้อมูลที่แอปโซเชียลส่วนใหญ่ไม่ชอบ เช่น ใคร

วิธีค้นหาเพื่อนที่ถูกลบใน Snapchat

วิธีค้นหาเพื่อนที่ถูกลบใน Snapchat

หากมีคนรบกวนคุณใน Snapchat หรือคุณพบว่าภาพของพวกเขาไม่น่าสนใจ ทางเลือกหนึ่งที่คุณมีนอกเหนือจากการบล็อกพวกเขาก็คือ ลบพวกเขาออกจาก

Snapchat: วิธีดูว่าใครบล็อกคุณ

Snapchat: วิธีดูว่าใครบล็อกคุณ

หากคุณใช้ Snapchat บ่อยๆ คุณอาจเจอผู้ใช้ที่ทำอะไรกวนใจหรือทำให้คุณไม่พอใจ น่าเศร้า นี่เป็นเหตุการณ์ปกติบนโซเชียลมีเดีย แต่

วิธีปิด Aging ใน Sims 4

วิธีปิด Aging ใน Sims 4

เช่นเดียวกับในโลกแห่งความเป็นจริง ผลงานของคุณใน Sims 4 จะแก่และตายไปในที่สุด ซิมส์มีอายุอย่างเป็นธรรมชาติผ่านช่วงชีวิตเจ็ดช่วง: ทารก, เด็กวัยหัดเดิน, เด็ก, วัยรุ่น,

วิธีเพิ่มเพจให้โดดเด่น

วิธีเพิ่มเพจให้โดดเด่น

หากคุณเป็นผู้ใช้ Notability ความสะดวกในการจดบันทึกและจัดระเบียบความคิดของคุณคงไม่สูญหายไป และในขณะที่บันทึกย่อพื้นฐานมีประโยชน์เมื่อ

Google Forms: วิธีรับการแจ้งเตือนทางอีเมล

Google Forms: วิธีรับการแจ้งเตือนทางอีเมล

Google ฟอร์มเป็นวิธีที่สะดวกในการรวบรวมข้อมูลและความคิดเห็นผ่านการทำแบบสำรวจ การลงทะเบียนกิจกรรม และแบบฟอร์มแสดงความคิดเห็น นี้

Microsoft Edge: วิธีการตั้งค่าและใช้งานพื้นที่ทำงาน

Microsoft Edge: วิธีการตั้งค่าและใช้งานพื้นที่ทำงาน

Microsoft Edge Workspaces เป็นคุณสมบัติที่เน้นการทำงานร่วมกันบน Windows และ macOS คุณสามารถสร้างพื้นที่ทำงานและเปิดสิ่งที่จำเป็นทั้งหมดได้

วิธีดูเมื่อมีการสร้างบัญชี Instagram—ของคุณเองหรือของผู้อื่น

วิธีดูเมื่อมีการสร้างบัญชี Instagram—ของคุณเองหรือของผู้อื่น

แพลตฟอร์มโซเชียลมีเดียอย่าง Instagram นั้นมีการพัฒนาไปไกลนับตั้งแต่เปิดตัวในปี 2010 และการเข้าซื้อกิจการ Facebook ในปี 2012 และผู้คนบางส่วนก็ใช้งานอยู่

วิธีกำหนดเวลาส่งข้อความใน IMessage

วิธีกำหนดเวลาส่งข้อความใน IMessage

คุณเคยตื่นขึ้นมากลางดึกแล้วจำได้ว่าต้องส่งข้อความถึงใครบางคนในตอนเช้าหรือไม่? มันเกิดขึ้นกับทุกคน ในขณะที่ส่วนใหญ่

Minecraft Java: วิธีการติดตั้ง Mod From The Fog

Minecraft Java: วิธีการติดตั้ง Mod From The Fog

หากคุณเบื่อหน่ายกับการเรียนรู้โลกแห่งวานิลลา Minecraft: Java Edition คุณสามารถนำชีวิตใหม่มาสู่เกมได้ด้วยการเพิ่ม mods และ data packs รวมถึง

วิธีแก้ไข Discord ที่แสดงหน้าจอสีดำขณะสตรีมมิ่ง

วิธีแก้ไข Discord ที่แสดงหน้าจอสีดำขณะสตรีมมิ่ง

ค้นพบวิธีแก้ไขข้อผิดพลาดของหน้าจอสีดำเมื่อสตรีมบน Discord ด้วยเคล็ดลับการแก้ปัญหาเหล่านี้เพื่อกลับไปแชร์เนื้อหาของคุณ

วิธีการแก้ไขไม่สามารถส่งข้อความผิดพลาดบน Telegram

วิธีการแก้ไขไม่สามารถส่งข้อความผิดพลาดบน Telegram

ค้นหาสาเหตุที่คุณไม่สามารถส่งข้อความทาง Telegram และเรียนรู้วิธีแก้ปัญหาง่ายๆ เพื่อให้มั่นใจว่าคุณสามารถติดต่อกับผู้ติดต่อของคุณได้

วิธีถอนการติดตั้งและติดตั้ง Chrome ใหม่

วิธีถอนการติดตั้งและติดตั้ง Chrome ใหม่

https://www.youtube.com/watch?v=g4e-Vxt3Cr0 Google Chrome เป็นหนึ่งในเว็บเบราว์เซอร์ยอดนิยมด้วยเหตุผลที่ดี มีอยู่ในมือถือทุกรุ่นและ

วิธีรวมแท็บใน Google ชีต

วิธีรวมแท็บใน Google ชีต

สเปรดชีตอาจมีข้อมูลที่มีค่า เช่น บันทึกการขาย ข้อมูลทางบัญชี ข้อมูลติดต่อ ฯลฯ อย่างไรก็ตาม ข้อมูลนั้นมักจะกระจายไปทั่ว

คำแนะนำในการสร้างแนวโน้มข้างขึ้นข้างแรม

คำแนะนำในการสร้างแนวโน้มข้างขึ้นข้างแรม

คำแนะนำในการสร้างเทรนด์ Moon Phase เทรนด์ Moon ได้รับความนิยมอย่างมากใน TikTok สร้างความฮือฮาอย่างที่ไม่เคยเกิดขึ้นมาก่อน ผ่านข้างขึ้นข้างแรมจะช่วยให้คุณรู้วันที่

วิธีแก้ไขวิดีโอที่โพสต์บน YouTube โดยไม่เสียการดู

วิธีแก้ไขวิดีโอที่โพสต์บน YouTube โดยไม่เสียการดู

วิธีแก้ไขวิดีโอที่โพสต์บน YouTube โดยไม่สูญเสียการดู คุณลืมเบลอเนื้อหาที่ละเอียดอ่อนในวิดีโอที่โพสต์บน YouTube ไม่ต้องกังวล ต่อไปนี้เป็นวิธีปรับเปลี่ยน

วิธีเปิดใช้งานโหมดมืดบน TikTok

วิธีเปิดใช้งานโหมดมืดบน TikTok

วิธีเปิดโหมดมืดบน TikTok วิธีเปิดโหมดมืดบน TikTok ไม่ใช่เรื่องยาก บทความนี้จะแนะนำคุณโดยละเอียดเกี่ยวกับวิธีเปลี่ยนอินเทอร์เฟซ TikTok เป็นสีดำบน Samsung