Giúp Code xóa tất các Picture (2 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

 

[hngiatuong]

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)

Thực ra em muốn lồng code đó vào code dưới đây của anh Siwtom
Sub DeleteAllCodes()
Dim x
On Error Resume Next
With ActiveWorkbook.VBProject
For x = .VBComponents.Count To 1 Step -1
If .VBComponents(x).Type <> 100 Then
.VBComponents.Remove .VBComponents(x)
Else
With .VBComponents(x).CodeModule
.DeleteLines 1, .CountOfLines
End With
End If
Next x
End With
End Sub

Mục đích: Em có 1 file trích rút 1 phần số liệu từ 1 file khác, mà file lấy dữ liệu và file kết quả phải nằm chung 1 thư mục. Em muốn sau khi lấy số liệu xử lý xong các công đoạn và lưu chuyển cho bộ phận khác thì chỉ cần gửi giá trị của file kết quả đó đi thôi, do đó em cần vô hiệu code hoặc các nút bấm để người khác khỏi buồn tay bấm vào. rất mong anh chỉ giùm. Cảm ơn anh nhiều.

 

[chuot0106]

Thực ra em muốn lồng code đó vào code dưới đây của anh Wistom

Tôi nghĩ bạn viết sai tên tác giả rồi. Tôi nghĩ bạn đang nhắc tới thầy siwtom thì phải.

 

[hngiatuong]

Em lồng được rồi cảm ơn các anh ạ.

 

[be_09]

Mục đích: Em có 1 file trích rút 1 phần số liệu từ 1 file khác, mà file lấy dữ liệu và file kết quả phải nằm chung 1 thư mục. Em muốn sau khi lấy số liệu xử lý xong các công đoạn và lưu chuyển cho bộ phận khác thì chỉ cần gửi giá trị của file kết quả đó đi thôi, do đó em cần xóa sạch code trong file và các nút bấm để người khác khỏi buồn tay bấm vào. rất mong anh chỉ giùm. Cảm ơn anh nhiều.

Bạn tham khảo Topic ở Link bên dưới, tương tự như yêu cầu của bạn.

http://www.giaiphapexcel.com/forum/...eet-file-excel-này-sang-sheet-file-excel-khác