Estoy usando una pequeña macro para agregar y eliminar el campo de datos en pivotable. Tengo un botón asignado a Buttom, al presionar el botón puedo llamar al campo, pero al presionar dos veces debería ocultarse, pero no sucede. Una de las razones, apuntó a Set myshape = ActiveSheet.Shapes (Application.Caller). Tal vez tengo otros problemas con el código. Aquí está el código:

 Sub Base_Salary() Dim pt As PivotTable Dim pf As PivotField Dim sField As String Dim myshape As Shape Set pt = ActiveSheet.PivotTables(1) Set myshape = ActiveSheet.Shapes(Application.Caller) sField = myshape.TextFrame.Characters.Text If pt.PivotFields(sField).Orientation = xlDataField Then pt.PivotFields(sField).Orientation = xlHidden myshape.Fill.ForeColor.Brightness = 0.5 Else pt.PivotFields(sField).Orientation = xlDataField myshape.Fill.ForeColor.Brightness = 0 End If End Sub