Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

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

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

doc ดึงรูปภาพจากความคิดเห็นที่ 1

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

doc ดึงรูปภาพจากความคิดเห็นที่ 2

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

doc ดึงรูปภาพจากความคิดเห็นที่ 3


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

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

doc ดึงรูปภาพจากความคิดเห็นที่ 4

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 กุญแจสำคัญในการเรียกใช้รหัสนี้และรูปภาพทั้งหมดของความคิดเห็นในแผ่นงานปัจจุบันได้ถูกแยกลงในเซลล์คอลัมน์ถัดไปดูภาพหน้าจอ:

doc ดึงรูปภาพจากความคิดเห็นที่ 4


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

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

แต่ฉันไม่เห็นวิธีใช้เพื่อใช้รูปภาพสำหรับปุ่ม CommandBar ของฉัน ให้ฉันอธิบาย

ฉันต้องการแชร์แผ่นงาน Excel ของฉันโดยไม่ส่งรูปภาพสำหรับปุ่มแยกกันเป็นไฟล์ jpg (.Picture = LoadPicture(ImageFile)

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

ความคิดใด ๆ สำหรับเรื่องนี้?


ขอบคุณที่สละเวลา.
บรีส.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฮือออ! Muchisimas gracias por el aporte. ปัญหาที่มีปัญหา, ความสนุกและความบันเทิงไม่มีรูปภาพเพิ่มเติม .Por que puede ser si es la misma macro?
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL