ZOrder msoBringToFront Using Text in Command Button Combo Box

[jbiehl]

Good Afternoon!
If I can't find a solution here, the code below is going to need to be duplicated for hundred of images, so I'm hopeful!
I have a combobox named CB_ST_STA. Each time that combo box is clicked, I need the chart and a slicer tied to the selection to be brought to the front. The chart will have the same name as the item in the combobox and the slicer will have that name followed by "_Overall".

The code I currently have is at the bottom, but I was hoping to have something that like this:
Private Sub CB_ST_sta_click()
If.Me.CB_ST_STA=Shapename then
ActiveSheet.Shapes(ShapeName that matches CB_ST.STA).ZOrder msoBringToFront
ActiveSheet.Shapes(ShapeName that matches CB_ST.STA & "_Overall").ZOrder msoBringToFront

Private Sub CB_ST_sta_click()
If Me.CB_ST_STA = "RL.8.1" Then
ActiveSheet.Shapes("RL.8.1").ZOrder msoBringToFront
ActiveSheet.Shapes("RL.8.1_Overall").ZOrder msoBringToFront

Any help is appreciated!

 

[mikerickson]

Private Sub CB_ST_sta_click()
    With Me.CB_ST_STA
        ActiveSheet.Shapes(.Value).ZOrder msoBringToFront
        ActiveSheet.Shapes(.Value & "_Overall").ZOreder msoBringToFront
    End With
End Sub

 

[jbiehl]

Awesome, thanks!
Is there a way to avoid the error message if a chart matching the selected item isn't there?

 

[jbiehl]

Better yet, would it be possible to bring a certain shape the the front if the chart doesn't exist?
I could create a shape that says, "I'm sorry, there isn't a chart available for this standard." and another that says, "I'm sorry, there isn't a slicer available for this standard."

 

[mikerickson]

You could use code like this, altering the oops as desired.

Private Sub CB_ST_sta_click()
    On Error GoTo Oops
    With Me.CB_ST_STA
        ActiveSheet.Shapes(.Value).ZOrder msoBringToFront
        ActiveSheet.Shapes(.Value & "_Overall").ZOreder msoBringToFront
    End With
    On Error Goto 0
Exit Sub
Oops:
    ' MsgBox "not there"
    Beep
End Sub

 

[jbiehl]

You could use code like this, altering the oops as desired.

Private Sub CB_ST_sta_click()
    On Error GoTo Oops
    With Me.CB_ST_STA
        ActiveSheet.Shapes(.Value).ZOrder msoBringToFront
        ActiveSheet.Shapes(.Value & "_Overall").ZOreder msoBringToFront
    End With
    On Error Goto 0
Exit Sub
Oops:
    ' MsgBox "not there"
    Beep
End Sub

Thanks so much!