Xem và xóa hình ảnh

[trungnt]

Tôi muốn xóa hình ảnh của những lần chọn trước (kích chọn trong combobox) nhưng chưa làm được. Cứ mỗi lần chọn mới là các hình ảnh mới chồng lên ảnh cũ tại vị trí đã định sẵn. Có bác nào biết xin chỉ giúp ........tôi xin cám ơn nhìu nhìu!!!!!!!!. Code của tôi đã viết trong combobox như sau:
Private Sub cmbanh_Click()
Dim Hinh As String
Hinh = cmbanh.Text
Select Case Hinh
Case "1"
Sheet1.Shapes.AddPicture "D:\TRUNG\TONGHOP\DLTHAMCHIEU\1lopLN.JPG", True, True, 10, 10, 120, 70
Case "2"
Sheet1.Shapes.AddPicture "D:\TRUNG\TONGHOP\DLTHAMCHIEU\2lop.JPG", True, True, 10, 10, 120, 70
Case "3"
Sheet1.Shapes.AddPicture "D:\TRUNG\TONGHOP\DLTHAMCHIEU\3lop.JPG", True, True, 10, 10, 120, 70
Case "4"
Sheet1.Shapes.AddPicture "D:\TRUNG\TONGHOP\DLTHAMCHIEU\4lop.JPG", True, True, 10, 10, 120, 70
End Select
End Sub

 

[voda]

Bạn xem file có đáp ứng được yêu cầu không?

 

[minhlev]

Bác Vo da ơi, có cách nào để đưa file âm thanh vào sheet không?

 

[voda]

Nguyên văn bởi minhlev
Bác Vo da ơi, có cách nào để đưa file âm thanh vào sheet không?

Bạn nghiên cứu file này nhé. file này do mình sưu tầm.