Error with toggle button

[Guinaba]

Hi guys,

I used two have two buttons (Form Control) to show/hide a chart named ("Graph") which was perfectly working. However, I've decided to replace the two buttons with a toggle button (ActiveX Control) and now I keep getting the error: The item with the specified name wasn't found, I am assuming the button doesn's recognize the chart("Graph"). Any suggestions?

Private Sub ToggleButton2_Click()
 With ToggleButton2
   If .Value=true Then
      .Caption = "Hide Graph"
      .BackColor = vbRed
      Sheets("Summary").ChartObjects("Graph").Visible = True
      Sheets("Summary").ChartObjects("Graph").Activate
      Sheets("Summary").ChartObjects("Graph").Cut
      Sheets("Summary").Paste
      Sheets("Summary").ChartObjects("Graph").Height = 460
      Sheets("Summary").ChartObjects("Graph").Width = 1300
     
      Growth.Show vbModeless
      Growth.StartUpPosition = 0
      Growth.Top = Application.Top + 50
      Growth.Left = Application.Left + Application.Width - Growth.Width - 400
      
    Else
      .Caption = "Show Graph"
      .BackColor = vbGreen
      Sheets("Summary").ChartObjects("Graph").Visible = False
      Growth.Hide
      Unload Growth
    End If
  End With

 

[igold]

Why do you need the "With" Toggle button. Can't it just be If Toggle value is true then...

 

[Guinaba]

Why do you need the "With" Toggle button. Can't it just be If Toggle value is true then...

@igold just less repeated code to write...

 

[igold]

It's not working.

How many lines are we talking about 2 or 3?

 

[Guinaba]

Hi @igold,

I've changed the code, it seem ok now.

If ActiveSheet.ToggleGraph.Value = False Then
       ActiveSheet.ToggleGraph.Caption = "Show Graph"
       ActiveSheet.ToggleGraph.BackColor = vbGreen
       ActiveSheet.ChartObjects("Graph").Visible = False
       Growth.Hide
       Unload Growth
    Else
       ActiveSheet.ToggleGraph.Value = True
       ActiveSheet.ToggleGraph.Caption = "Hide Graph"
       ActiveSheet.ToggleGraph.BackColor = vbRed
       ActiveSheet.ChartObjects("Graph").Visible = True
       Sheets("Summary").ChartObjects("Graph").Activate
       Sheets("Summary").ChartObjects("Graph").Cut
       Sheets("Summary").Paste
       Growth.Show vbModeless
       Growth.StartUpPosition = 0
       Growth.Top = Application.Top + 50
       Growth.Left = Application.Left + Application.Width - Growth.Width - 400
End If

 

[igold]

I am glad you got it working. Thanks for the feedback.