Macro Button on Rectangle Shape

[Lakshmi Narain]

Dear all,

Please help me in shape button script. I have script in VB button it available in the developer TAB. but same script not woking in the Rectangular Shape Button from insert tab please help.

Note : if we click button sheet 3 pivot is getting filter.

Sub Button_Click()
  With ThisWorkbook.Worksheets("Sheet3")
  .PivotTables(1).PivotFields("State").ClearAllFilters
  .PivotTables(1).PivotFields("State").CurrentPage = ThisWorkbook.Worksheets("Sheet2").Buttons(Application.Caller).Caption
  End With
End Sub

 

[Lakshmi Narain]

PFA of the script. I cant attach it in same post

 

[NARAYANK991]

Hi ,

See your file now.

Narayan

 

[Somendra Misra]

Hi,

Try below code.

Sub Rectangle2_Click()
    With ThisWorkbook.Worksheets("Sheet3")
        .PivotTables(1).PivotFields("State").ClearAllFilters
       
        .PivotTables(1).PivotFields("State").CurrentPage = ThisWorkbook.Worksheets("Sheet2").Shapes(1).TextFrame.Characters.Text
    End With
End Sub

Regards,