Cho mình hỏi về code VBA Reset ảnh về ban đầu

[thang_nguyen1]

Khi mình chỉnh sửa ảnh, thấy không đúng thì có thể dùng lệnh VBA reset các thuộc tính chỉnh sửa về ban đầu. MÌnh biết là Excel có thuộc tính Reset nhưng mình hỏi code VBA để timg hiểu thêm

 

[hoangtuan.net]

Bạn thử một số đoạn mã sau:
1.

Dim ILS As InlineShape

For Each ILS In ActiveSheet.InlineShapes

  ILS.Reset

Next

2.

Application.CommandBars.ExecuteMso ("PictureReset")

3.

Dim SHP As Shape
Dim L As Long
Dim fe As PictureEffect
For Each SHP In ActiveSheet.Shapes
  For L = SHP.Fill.PictureEffects.Count To 1 Step -1
    SHP.Fill.PictureEffects(L).Delete
  Next L
Next

 

[thang_nguyen1]

Bạn thử một số đoạn mã sau:
1.

Làm mờ ILS dưới dạng hình dạng nội tuyến

Đối với mỗi ILS trong ActiveSheet.InlineShapes

  ILS.Đặt lại

Kế tiếp

[/MÃ SỐ]
2.
[CODE]Application.CommandBars.ExecuteMso ("PictureReset")
[/MÃ SỐ]
3.
[CODE]Dim SHP theo hình dạng
Dim L Càng Dài
Dim fe Như PictureEffect
Đối với mỗi SHP trong ActiveSheet.Shapes
  Đối với L = SHP.Fill.PictureEffects.Count Đến 1 Bước -1
    SHP.Fill.PictureEffects(L).Delete
  Tiếp theo L
Kế tiếp
[/MÃ SỐ]
[/QUOTE]
Code số 2 bạn có thể sử dụng được. Còn lại mã đầu với lỗi cuối

Code số 2 dùng tốt bạn ạ. Code số 1 và 3 bị lỗi bạn ạ