วิธีแยกภาพจากความคิดเห็นใน Excel
ใน Excel คุณสามารถแทรกรูปภาพลงในความคิดเห็นได้อย่างง่ายดาย แต่คุณเคยพิจารณาแยกภาพจากกล่องความคิดเห็นลงในเซลล์หรือในโฟลเดอร์เฉพาะหรือไม่? บทความนี้ผมจะพูดถึงวิธีการดึงภาพจากความคิดเห็น
แยกและบันทึกภาพจากความคิดเห็นลงในโฟลเดอร์ด้วยฟังก์ชันบันทึกเป็น
ดึงภาพจากความคิดเห็นลงในเซลล์ด้วยรหัส VBA
แยกและบันทึกภาพจากความคิดเห็นลงในโฟลเดอร์ด้วยฟังก์ชันบันทึกเป็น
หากคุณต้องการแยกและบันทึกภาพจากความคิดเห็นลงในโฟลเดอร์โปรดดำเนินการดังนี้:
1. คัดลอกแผ่นงานที่มีความคิดเห็นพร้อมรูปภาพที่คุณต้องการบันทึกลงในสมุดงานเปล่าใหม่
2. จากนั้นคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานใหม่นี้เป็นไฟล์ หน้าเว็บ รูปแบบในโฟลเดอร์เฉพาะดูภาพหน้าจอ:
3. จากนั้นคลิก ลด เพื่อบันทึกไฟล์จากนั้นไปที่โฟลเดอร์เฉพาะเพื่อดูภาพที่บันทึกไฟล์สองไฟล์จะถูกสร้างขึ้นในโฟลเดอร์หนึ่งคือไฟล์ html และอีกไฟล์เป็นโฟลเดอร์ที่มีรูปภาพและไฟล์อื่น ๆ ทั้งหมดดูภาพหน้าจอ:
ดึงภาพจากความคิดเห็นลงในเซลล์ด้วยรหัส 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 กุญแจสำคัญในการเรียกใช้รหัสนี้และรูปภาพทั้งหมดของความคิดเห็นในแผ่นงานปัจจุบันได้ถูกแยกลงในเซลล์คอลัมน์ถัดไปดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
