Giúp Code xóa tất các Picture (1 người xem)

[congnguyen88]

tình hình là mình thường xuyên chèn ảnh vào excel. để xóa tất cả ảnh mình thường làm
Nhấn Ctrl + G sau đó chọn Special / Objects nhấn Delete để xóa tất các các ảnh. bây giờ có cách nào chỉ cần Click nút bấm thì tất các các ảnh hiện đang có trong Sheet đó sẽ xóa hết không ? tHANKS

 

[phihndhsp]

tình hình là mình thường xuyên chèn ảnh vào excel. để xóa tất cả ảnh mình thường làm
Nhấn Ctrl + G sau đó chọn Special / Objects nhấn Delete để xóa tất các các ảnh. bây giờ có cách nào chỉ cần Click nút bấm thì tất các các ảnh hiện đang có trong Sheet đó sẽ xóa hết không ? tHANKS

ActiveSheet.DrawingObjects.Delete
thử cái này xem sao? lấy của anh ndu đấy

 

[Kiều Mạnh]

tình hình là mình thường xuyên chèn ảnh vào excel. để xóa tất cả ảnh mình thường làm
Nhấn Ctrl + G sau đó chọn Special / Objects nhấn Delete để xóa tất các các ảnh. bây giờ có cách nào chỉ cần Click nút bấm thì tất các các ảnh hiện đang có trong Sheet đó sẽ xóa hết không ? tHANKS

Thử code này nha xem thế nào

Sub DeleteObjects()
    ActiveSheet.DrawingObjects.Delete
End Sub

 

[Quang_Hải]

ActiveSheet.DrawingObjects.Delete
thử cái này xem sao? lấy của anh ndu đấy

Thử code này nha xem thế nào

Sub DeleteObjects()
    ActiveSheet.DrawingObjects.Delete
End Sub

Bảo đảm code này chủ thớt không chịu. Mình đoán vậy.

 

[phihndhsp]

Bảo đảm code này chủ thớt không chịu. Mình đoán vậy.

chắc là nó xóa cái nút bấn luôn nên chủ thớt sẽ không chịu đó anh

 

[Kiều Mạnh]

Bảo đảm code này chủ thớt không chịu. Mình đoán vậy.

Thì giống code bài 3 chỉ xoá trên sheet hiện hành thôi anh và xoá chính nó... em nghĩ chạy For next thì nó xoá hết

 

[Quang_Hải]

chắc là nó xóa cái nút bấn luôn nên chủ thớt sẽ không chịu đó anh

Thì rõ ràng là chủ thớt la ở bài 1 là cần cái nút, nên nếu xoá 1 phát sạch sẽ thì không chịu là cái chắc.

Thì giống code bài 3 chỉ xoá trên sheet hiện hành thôi anh và xoá chính nó... em nghĩ chạy For next thì nó xoá hết

Chờ xem phản hồi của chủ thớt nhé

 

[congnguyen88]

Thử code này nha xem thế nào

Sub DeleteObjects()
    ActiveSheet.DrawingObjects.Delete
End Sub

Code tuyệt vời rồi .nhưng đừng có xóa mấy cái "Rectangle" , " Command" để mình làm nút lệnh chứ
Túm lại chỉ xóa tất cả các "Picture" không được xóa các "Rectangle" , " Command". Anh giúp em với

 

[congnguyen88]

Thì rõ ràng là chủ thớt la ở bài 1 là cần cái nút, nên nếu xoá 1 phát sạch sẽ thì không chịu là cái chắc.

Chờ xem phản hồi của chủ thớt nhé

đúng rồi anh, nó xóa hết các nút "Rectangle" của em rồi huhu, em muốn giữ lại các Rectangle do em chỉ định. Ví dụ em muốn giử lại Rectangle 5 và Rectangle 12

 

[Quang_Hải]

đúng rồi anh, nó xóa hết các nút "Rectangle" của em rồi huhu, em muốn giữ lại các Rectangle do em chỉ định. Ví dụ em muốn giử lại Rectangle 5 và Rectangle 12

Thử cái này. Nếu trúng thì coi như hên. Trật thì coi như vui

Sub xoaaa()
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
   If InStr(Pic.Name, ".") > 0 Then Pic.Delete
Next
End Sub

 

[congnguyen88]

Thử cái này. Nếu trúng thì coi như hên. Trật thì coi như vui

Sub xoaaa()
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
   If InStr(Pic.Name, ".") > 0 Then Pic.Delete
Next
End Sub

Không xóa được anh ơi

 

[Quang_Hải]

Không xóa được anh ơi

Lại đoán tiếp. Nếu trúng coi như trời cho, trật thì là "trò chơi"

Sub xoaaa()
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
   If InStr(Pic.Name, "Pic") > 0 Then Pic.Delete
Next
End Sub

 

[ndu96081631]

đúng rồi anh, nó xóa hết các nút "Rectangle" của em rồi huhu, em muốn giữ lại các Rectangle do em chỉ định. Ví dụ em muốn giử lại Rectangle 5 và Rectangle 12

Thử vầy xem:

ActiveSheet.Pictures.Delete

Cứ Pictures thì xơi tái hết
(cũng không chắc lắm, cứ thử sẽ biết)

 

[Quang_Hải]

Thử vầy xem:

ActiveSheet.Pictures.Delete

Cứ Pictures thì xơi tái hết
(cũng không chắc lắm, cứ thử sẽ biết)

Code này nó xơi sạch sẽ luôn mấy cái ActiveX Controls.

 

[congnguyen88]

Thử vầy xem:

ActiveSheet.Pictures.Delete

Cứ Pictures thì xơi tái hết
(cũng không chắc lắm, cứ thử sẽ biết)

ok quá chuẩn, đúng ý của em rồi. Code quá ngắn gọn mà chính xác

 

[hngiatuong]

Thử code này nha xem thế nào

Sub DeleteObjects()
    ActiveSheet.DrawingObjects.Delete
End Sub

Các anh cho hỏi. Code này sửa thế nào để thực hiện trên tất cả các sheet ạ. cảm ơn.

 

[be_09]

Các anh cho hỏi. Code này sửa thế nào để thực hiện trên tất cả các sheet ạ. cảm ơn.

Bạn Paste code vào Module rồi thử từng sheet nhé, với code này thì nó xóa sạch sẽ các Rectangle, các Coltrol và các hình ẩnh.

Nếu bạn sử dụng Code của ndu thì nó chỉ xóa hình ảnh mà thôi (còn chừa lại các Rectangle và các Coltrol)

 

[chuot0106]

Các anh cho hỏi. Code này sửa thế nào để thực hiện trên tất cả các sheet ạ. cảm ơn.

Thử đoạn code này xem sao:

Sub DeleteObjects()
Dim Ws As Worksheet
For Each Ws In worksheets
    Ws.DrawingObjects.Delete
Next Ws
End Sub

 

[Kiều Mạnh]

Các anh cho hỏi. Code này sửa thế nào để thực hiện trên tất cả các sheet ạ. cảm ơn.

Bạn copy code bài 18 mà xài sửa lại chữ này nha whorksheets Thành Worksheets Bạn chuot viết sai chính tả

 

[chuot0106]

Bạn copy code bài 18 mà xài sửa lại chữ này nha whorksheets Thành Worksheets Bạn chuot viết sai chính tả

Do Viết code trực tiếp trên GPE lên không phát hiện ra lỗi. Cảm ơn KieuManh!