Thủ tục gọi picture trong sheet ntn? (2 người xem)

[Trojan]

Lâu không dùng VBA nên hỏi hơi ngu tí mong anh em thông cảm giải thích giúp với. Tôi tạo 1 button với thủ tục khi click vào button thì hoặc là show hoặc là hide cái ảnh (ví dụ tên là picture1) trong sheet hiện hành thì làm thế nào các bác?
Chân thành cảm ơn mọi ý kiến giúp đỡ.

 

[Quang_Hải]

Lâu không dùng VBA nên hỏi hơi ngu tí mong anh em thông cảm giải thích giúp với. Tôi tạo 1 button với thủ tục khi click vào button thì hoặc là show hoặc là hide cái ảnh (ví dụ tên là picture1) trong sheet hiện hành thì làm thế nào các bác?
Chân thành cảm ơn mọi ý kiến giúp đỡ.

Hình như là thế này
ActiveSheet.Shapes("Picture1.jpg").Visible = False 'True

 

[Trojan]

Không được anh quanghai1969 à. Bác xem thử file này xem thế nào. Ý tôi là click vào viên gạch thì cái ảnh toà nhà nó sẽ mất đi hoặc hiện ra.

 

[Quang_Hải]

Không được anh quanghai1969 à. Bác xem thử file này xem thế nào. Ý tôi là click vào viên gạch thì cái ảnh toà nhà nó sẽ mất đi hoặc hiện ra.

Viên gạch là cái nào vậy? Chưa hiểu lắm. Rõ thêm chút đi.
hoặc sửa lại vầy
Sheet1.Shapes("picture 4").Visible = False

 

[VMH0307]

Không được anh quanghai1969 à. Bác xem thử file này xem thế nào. Ý tôi là click vào viên gạch thì cái ảnh toà nhà nó sẽ mất đi hoặc hiện ra.

Thì tên ảnh của bạn là Picture 4 cơ mà, thế nên phải là
Sheet1.Shapes("Picture 4").Visible = False

 

[Trojan]

Ok rồi cảm ơn anh em.

 

[Thuyanhanoi]

Ok rồi cảm ơn anh em.

- Thêm một chút nữa cho nó ẩn hoặc hiện luôn nhé!.

Sheet1.Shapes("picture 4").Visible = Not Sheet1.Shapes("picture 4").Visible = True

 

[siwtom]

- Thêm một chút nữa cho nó ẩn hoặc hiện luôn nhé!.

Sheet1.Shapes("picture 4").Visible = Not Sheet1.Shapes("picture 4").Visible = True

Nếu bỏ đỏ đỏ thì càng tuyệt - vừa gọn code vừa tiết kiệm năng lượng.