Page 1 of 1

เอา ภาพหลายภาพที่มีลิ้งค์ออกในคราวเดียว

Posted: Thu May 19, 2011 10:36 am
by makwid
รบกวนสอบถามครับ

ว่าเราจะเอา ภาพที่มีลิ้งค์ ในแต่ละ cell ออก (มีภาพลิ้งค์ ประมาณ กว่า สี่พัน cell โดยที่ทำแบบรวดเร็วที่สุดครับ
ตอนนี้ผมต้องมาลบออกที่ละภาพ

ขอบคุณครับ

Re: เอา ภาพหลายภาพที่มีลิ้งค์ออกในคราวเดียว

Posted: Thu May 19, 2011 11:01 am
by snasui
:D สามารถใช้ VBA มาจัดการได้ครับ ตัวอย่างตามด้านล่าง

Code: Select all

Sub DeletePic()
Dim obj as Object
For Each obj In ActiveSheet.Shapes
    If Left(obj.Name, 4) = "Pict" Then
        obj.Delete
    End If
Next obj
End Sub
หากยังไม่ได้ลองส่งตัวอย่างไฟล์มาครับ

Re: เอา ภาพหลายภาพที่มีลิ้งค์ออกในคราวเดียว

Posted: Thu May 19, 2011 1:02 pm
by makwid
ขอบคุณครับ อาจารย์
เรียบร้อย เจ๋วเลย