ไปยังเนื้อหาหลัก

วิธีแยกภาพจากความคิดเห็นใน Excel

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-09-23

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

แยกและบันทึกภาพจากความคิดเห็นลงในโฟลเดอร์ด้วยฟังก์ชันบันทึกเป็น

ดึงภาพจากความคิดเห็นลงในเซลล์ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวาแยกและบันทึกภาพจากความคิดเห็นลงในโฟลเดอร์ด้วยฟังก์ชันบันทึกเป็น

หากคุณต้องการแยกและบันทึกภาพจากความคิดเห็นลงในโฟลเดอร์โปรดดำเนินการดังนี้:

1. คัดลอกแผ่นงานที่มีความคิดเห็นพร้อมรูปภาพที่คุณต้องการบันทึกลงในสมุดงานเปล่าใหม่

คัดลอกและวางเซลล์ที่มีรูปภาพความคิดเห็นลงในเวิร์กบุ๊กว่างใหม่

2. จากนั้นคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานใหม่นี้เป็นไฟล์ หน้าเว็บ รูปแบบในโฟลเดอร์เฉพาะดูภาพหน้าจอ:

บันทึกสมุดงานใหม่นี้เป็นรูปแบบเว็บเพจ

3. จากนั้นคลิก ลด เพื่อบันทึกไฟล์จากนั้นไปที่โฟลเดอร์เฉพาะเพื่อดูภาพที่บันทึกไฟล์สองไฟล์จะถูกสร้างขึ้นในโฟลเดอร์หนึ่งคือไฟล์ html และอีกไฟล์เป็นโฟลเดอร์ที่มีรูปภาพและไฟล์อื่น ๆ ทั้งหมดดูภาพหน้าจอ:

ไปที่โฟลเดอร์ที่ระบุเพื่อดูรูปภาพที่บันทึกไว้

ภาพหน้าจอของ kutools สำหรับ excel ai

ปลดล็อก Excel Magic ด้วย Kutools AI

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

ลูกศรสีฟ้าฟองขวาดึงภาพจากความคิดเห็นลงในเซลล์ด้วยรหัส VBA

หากคุณต้องการแยกภาพจากความคิดเห็นลงในเซลล์ตามภาพหน้าจอต่อไปนี้ที่นี่ฉันสามารถสร้างรหัส VBA ให้คุณได้โปรดทำดังนี้:

ดึงภาพจากความคิดเห็นลงในเซลล์

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: ดึงภาพจากความคิดเห็นลงในเซลล์:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และรูปภาพทั้งหมดของความคิดเห็นในแผ่นงานปัจจุบันได้ถูกแยกลงในเซลล์คอลัมน์ถัดไปดูภาพหน้าจอ:

รูปภาพถูกดึงมาจากความคิดเห็นในเซลล์

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

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


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!