Giúp đở viết code ẩn và hiện shapes (1 người xem)

[mymichau]

Nhờ các bạn giúp code để Ẩn và Hiện shapes trong sheet. Xin cãm ơn

 

[thukhon2014]

Nhờ các bạn giúp code để Ẩn và Hiện shapes trong sheet. Xin cãm ơn

Bạn thử code này

Sub An_Shape
ActiveSheet.Shapes.Range(Array("Ten Shapes")).Visible = msoFalse
End sub

 

[be_09]

Nhờ các bạn giúp code để Ẩn và Hiện shapes trong sheet. Xin cãm ơn

Tham khảo File.

 

[Bùi Thúy Thúy]

Tham khảo File.

Em chào thầy, nhờ thầy giải thích giúp em đoạn code mà thầy đã giúp trong bài #3 được không ạ?

Option Explicit
Sub AnHien_Hình()
    With ActiveSheet.Shapes("Rectangle1").TextFrame2.TextRange.Characters
        If .Text = "Hi" & ChrW(7879) & "n" Then
            .Text = ChrW(7848) & "n"
            ActiveSheet.Shapes("Picture1").Visible = False
        Else
            .Text = "Hi" & ChrW(7879) & "n"
            ActiveSheet.Shapes("Picture1").Visible = True
        End If
    End With
End Sub

 

[VetMini]

Em chào thầy, nhờ thầy giải thích giúp em đoạn code mà thầy đã giúp trong bài #3 được không ạ?

        If .Text = "Hi" & ChrW(7879) & "n" Then
            .Text = ChrW(7848) & "n"
            ActiveSheet.Shapes("Picture1").Visible = False
        Else
            .Text = "Hi" & ChrW(7879) & "n"
            ActiveSheet.Shapes("Picture1").Visible = True
        End If

Code lật qua lật lại giữa hai trạng thái thì giản dị hơn:
Set theShape = ActiveSheet.Shapes("Picture1")
Set theAnHienText = ActiveSheet.Shapes("Rectangle1").TextFrame2.TextRange.Characters
theShape.Visible = Not theShape.Visible
theAnHienText.Text = IIF(theShape.Visible, ChrW(7848) & "n", "Hi" & ChrW(7879) & "n")

Mà tôi cũng chả hiểu "để có thể ẩn/hiện 1 shape mà lại phải tạo 1 shape điều khiển" thì cuối cùng được cái gì?

 

[HeSanbi]

+ Ẩn hiện tất cả Shape

Sub HideAllShapes()
    On Error Resume Next
    Static Hide As Boolean: Hide = Not Hide
    ActiveSheet.DrawingObjects.visible = Hide
End Sub

--------------------------
+ Ẩn hiện một Shape:

Sub btnHideShape()
    Call HideShape("tên")
End Sub
Sub HideShape(Byval Shape$)
    On Error Resume Next
    ActiveSheet.Shapes(Shape).visible = Not ActiveSheet.Shapes(Shape).visible
End Sub

--------------------------
+ Ẩn hiện nhiều Shape:

Sub btnHideMultiShapes()
    Static Hide As Boolean: Hide = Not Hide
    Call HideMultiShapes(Hide, "tên 1", "tên 2", "tên 3") ', ...'
End Sub
Sub HideMultiShapes(ByVal Visible As Boolean, ParamArray Shapes() As Variant)
  Dim Shape
  On Error Resume Next
  For Each Shape In Shapes
    ActiveSheet.Shapes(Shape).Visible = Visible
  Next Shape
End Sub

 

[Bùi Thúy Thúy]

Code lật qua lật lại giữa hai trạng thái thì giản dị hơn:
Set theShape = ActiveSheet.Shapes("Picture1")
Set theAnHienText = ActiveSheet.Shapes("Rectangle1").TextFrame2.TextRange.Characters
theShape.Visible = Not theShape.Visible
theAnHienText.Text = IIF(theShape.Visible, ChrW(7848) & "n", "Hi" & ChrW(7879) & "n")

Mà tôi cũng chả hiểu "để có thể ẩn/hiện 1 shape mà lại phải tạo 1 shape điều khiển" thì cuối cùng được cái gì?

Em cám ơn!

Bài đã được tự động gộp: 30/11/19

+ Ẩn hiện tất cả Shape

Sub HideAllShapes()
    On Error Resume Next
    Static Hide As Boolean: Hide = Not Hide
    ActiveSheet.DrawingObjects.visible = Hide
End Sub

--------------------------
+ Ẩn hiện một Shape:

Sub btnHideShape()
    Call HideShape("tên")
End Sub
Sub HideShape(Byval Shape$)
    On Error Resume Next
    ActiveSheet.Shapes(Shape).visible = Not ActiveSheet.Shapes(Shape).visible
End Sub

--------------------------
+ Ẩn hiện nhiều Shape:

Sub btnHideMultiShapes()
    Static Hide As Boolean: Hide = Not Hide
    Call HideMultiShapes(Hide, "tên 1", "tên 2", "tên 3") ', ...'
End Sub
Sub HideMultiShapes(ByVal Visible As Boolean, ParamArray Shapes() As Variant)
  Dim Shape
  On Error Resume Next
  For Each Shape In Shapes
    ActiveSheet.Shapes(Shape).Visible = Visible
  Next Shape
End Sub

Tuyệt vời anh!