Làm sao để Ẩn/hiện 1 Shape! (1 người xem)

[lovelyghost]

Các bạn có cách nào để khi Click vào Nút command Ẩn thì cái Shape ẩn đi còn khi click vào nút command Hiện thì cái Shape hiện lên!
Cảm ơn các bạn nhiều!

 

[ptm0412]

Code để ẩn:

Private Sub CommandButton1_Click()
Sheet1.Shapes("autoshape 1").Visible = False
End Sub

Code để hiện:

Private Sub CommandButton2_Click()
Sheet1.Shapes("autoshape 1").Visible = True
End Sub

 

[lovelyghost]

Ẩn/hiện shape trong word!

Đối với word 2003!
Các bạn có cách nào để khi Click vào Nút command Ẩn thì cái Shape ẩn đi còn khi click vào nút command Hiện thì cái Shape hiện lên!
Cảm ơn các bạn nhiều!

 

[salam]

Bạn xem trong file kèm xem có được không.

 

[cadafi]

Đối với word 2003!
Các bạn có cách nào để khi Click vào Nút command Ẩn thì cái Shape ẩn đi còn khi click vào nút command Hiện thì cái Shape hiện lên!
Cảm ơn các bạn nhiều!

Bạn làm y chang excel.

 

[lovelyghost]

Cảm ơn các bạn nhiều nhiều...!
Nhưng mình muốn hỏi thêm như này. Nếu trong 1 trang word Mình vẽ ra rất nhiều Autoshape có khi mình Group 2 shape lại với nhau vậy làm sao để biết được tên của các shape đó mà viết code! Và mình có thể sửa được tên của shape đó không?
Rất mong các bạn chỉ giúp!

 

[cadafi]

Cảm ơn các bạn nhiều nhiều...!
Nhưng mình muốn hỏi thêm như này. Nếu trong 1 trang word Mình vẽ ra rất nhiều Autoshape có khi mình Group 2 shape lại với nhau vậy làm sao để biết được tên của các shape đó mà viết code!
Rất mong các bạn chỉ giúp!

Bạn dùng marco ghi lại động tác chọn shapes (hoặc làm cái gì đó với group shapes đó, ví dụ tô màu khác chẳng hạn) rồi xem shape đó tên gì trong màn hình VBA.

 

[fullgameht]

Hướng dẫn mình kĩ cách tạo nút ẩn hiện trong word với, mình không biết làm sao tao được cái nút ấy hết