Code xoá tất cả oval trước khi tô phiếu đáp án

[jacky_police]

Em có file tô đáp án, hiện tại em mới xử lý được tô đáp án lên phiếu. Tuy nhiên mỗi lần tô đáp án mới thì lại phải tự xoá hoặc out ra rồi vào lại, mất rất nhiều thao tác.
Vậy nhờ các bác giúp đỡ bổ sung thêm code xoá toàn bộ oval trước khi tô phiếu.
Xin cảm ơn các bác.

 

[HieuCD]

Em có file tô đáp án, hiện tại em mới xử lý được tô đáp án lên phiếu. Tuy nhiên mỗi lần tô đáp án mới thì lại phải tự xoá hoặc out ra rồi vào lại, mất rất nhiều thao tác.
Vậy nhờ các bác giúp đỡ bổ sung thêm code xoá toàn bộ oval trước khi tô phiếu.
Xin cảm ơn các bác.

Sub ABC()
  Dim oShape As Object
  For Each oShape In Sheet1.Shapes
    If Mid(oShape.Name, 1, 4) = "Oval" Then
      oShape.Delete
    End If
  Next
  Set oShape = Nothing
End Sub

 

[ndu96081631]

Em có file tô đáp án, hiện tại em mới xử lý được tô đáp án lên phiếu. Tuy nhiên mỗi lần tô đáp án mới thì lại phải tự xoá hoặc out ra rồi vào lại, mất rất nhiều thao tác.
Vậy nhờ các bác giúp đỡ bổ sung thêm code xoá toàn bộ oval trước khi tô phiếu.
Xin cảm ơn các bác.

Câu lệnh vầy là được:

Sheet1.Ovals.Delete

 

[jacky_police]

Cảm ơn các bác. File đã hoàn thiện hơn rồi.