Hide and unhide hrouped shapes

[kenducot]

I have a group of shapes which I hide and unhide using vb code. However, the code does not work when new shapes are added to the group because the name of the new grouped shapes changes but my codes specifically refers only to the name of the previous grouped shapes. Is there a general code that will address this issue? Thank you for your help. Please see attached file.

Here's my code:

Sub RoundedRectangle4_Click()

    With ActiveSheet.Shapes("Rounded Rectangle 4").TextFrame2.TextRange.Characters
        If .Text = "Hide Floor Plan" Then
            .Text = "Show Floor Plan"
            ActiveSheet.Shapes("group 5").Visible = False
        Else
            .Text = "Hide Floor Plan"
            With ActiveSheet.Shapes("Rounded Rectangle 4")
            ActiveSheet.Shapes("group 5").Left = .Left + .Width
            ActiveSheet.Shapes("group 5").Top = .Top + .Height
            ActiveSheet.Shapes("group 5").Visible = True
            End With
        End If
    End With
End Sub

 

[vletm]

kenducot
How many times should someone teach You how to use those code - tags?

Posting a sample workbook

The Chandoo.org Forum now has the facilities to upload files directly into a post. Simply use either the Media icon in the Edit menu or the Upload a File Button next to the Save Changes button Alternatively In the Chandoo.org Blog or here in the Forums you can still upload files using a Free...

chandoo.org

 

[Debaser]

If one of the shapes is always part of the group, you can refer to its ParentGroup property to get the group shape.

 

[kenducot]

Sorry as I am a newbie to excel visual basic. Is there a code for the above problem?

 

[Marc L]

Which problem ! As you just have to update the group name in the code​

or better just rename the group after adding a new shape​

or mod your code just following post #3 (see VBA inner help), very not an issue … ​

​

 

[Debaser]

Let's say Rectangle 3 is always part of the group. In that case, instead of:

ActiveSheet.Shapes("group 5").Visible = False

you can use:

ActiveSheet.Shapes("Rectangle 3").Parentgroup..Visible = False

 

[kenducot]

Wow, it works! Thank you very much Debaser for your generosity!