Trong một sheet mình insert nhiều đối tượng như ảnh từ file, các đối tượng của Autoshape, các vòng tròn, hình vuông... Khi bôi đen cả sheet rồi ấn nút xóa thì các đối tượng này không bị xóa theo. Có cách nào xóa hết chúng không (sử dụng VBA). Thank
Sub xoadt()
Dim obj As OLEObject
Dim sha As Shape
For Each sha In Sheet1.Shapes
sha.Delete
Next
For Each obj In Sheet1.OLEObjects
obj.Delete
Next
End Sub
Sub DelDrawingObjects()
ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub
Bạn thử cái này xem.
Nếu có đối tượng nào đó không xoá được thì bạn nhấn vào nút Design Mode (hình eke trong thanh công cụ Visual Basic) và chạy lại lệnh này.PHP:Sub DelDrawingObjects() ActiveSheet.DrawingObjects.Select Selection.Delete End Sub
Sub DelDrawingObjects()
ActiveSheet.DrawingObjects.Delete
End Sub
Tôi nghĩ cũng không cần phải bấm nút Design mode gì cả anh à ---> Nó xóa được tuốt đấy (thử rồi)Bạn thử cái này xem.
Nếu có đối tượng nào đó không xoá được thì bạn nhấn vào nút Design Mode (hình eke trong thanh công cụ Visual Basic) và chạy lại lệnh này.PHP:Sub DelDrawingObjects() ActiveSheet.DrawingObjects.Select Selection.Delete End Sub
Không mở file làm sao mà xóa hả bạn?Mình có trường hợp nhờ các bạn giúp đỡ :
Trong foder có nhiều file , mình muốn xóa hết picture (đối tượng khác thì không) mà không cần mở từng file ra .
Cảm ơn trước
Mình có trường hợp nhờ các bạn giúp đỡ :
Trong foder có nhiều file , mình muốn xóa hết picture (đối tượng khác thì không) mà không cần mở từng file ra .
Cảm ơn trước
Sub XoaHinh()
On Error Resume Next
Dim sh As Worksheet
Dim shp As Shape
Dim FileS As FileSearch
Dim Wb, Wb1 As Workbook
Dim F As Variant
Application.ScreenUpdating = False
Set Wb = ThisWorkbook
FPath = Wb.Path
Set FileS = Application.FileSearch
With FileS
.NewSearch
.Filename = "*.xls"
.LookIn = Wb.Path
.SearchSubFolders = False
.Execute
End With
For Each F In Application.FileSearch.FoundFiles
If F = Wb.FullName Then GoTo NextFile
Workbooks.Open F
Set Wb1 = Workbooks(Replace(F, Wb.Path & "\", ""))
Wb1.Activate
For Each sh In Sheets
For Each shp In sh.Shapes
If shp.Type = msoLinkedPicture Or shp.Type = msoPicture Then
shp.Delete
End If
Next shp
Next sh
Wb1.Close True
NextFile:
Next F
Application.ScreenUpdating = True
End Sub
Bạn thử cái này xem.
Nếu có đối tượng nào đó không xoá được thì bạn nhấn vào nút Design Mode (hình eke trong thanh công cụ Visual Basic) và chạy lại lệnh này.PHP:Sub DelDrawingObjects() ActiveSheet.DrawingObjects.Select Selection.Delete End Sub
Thì vầy:Có cách nào chỉ xóa picture thôi không bạn, đừng xóa command button và control.
Cám ơn
Sub DelPic()
ActiveSheet.Pictures.Delete
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2