MERGE FIELD la longitud exacta, please?

[develo]

Estimados amigos,

Tengo un inconveniente y la verdad no sé como solucionarlo, resulta que tengo dos campos que están en el área de datos de una tabla dinámica, pero al momento que quiero que se oculten uno de los dos, la instrucción:

Hoja2.PivotTables("Tbla_dina2").PivotFields(15).Or ientation = xlHidden

No hace absolutamente nada, tenía entendido que la propiedad xlHidden oculta los campos y no se visualizan en la tabla dinámica, ha momentos que sale el mensaje de error: No se puede asignar la propiedad orientation de la clase Pivot field.

Tengo dos controles option uno para mostrar el porcentaje de un campo (es un campo calculado) y el otro option el valor de un campo, están en otra hoja del mismo libro se llama "tablero", trabajo con Excel 2007, dependiendo lo que selecciono muestro los campos que están como datos en la tabla dinámica, ayúdenme no sé a que se debe o que estoy usando de manera errónea.

Segura de contar con el apoyo de siempre.

GRacias

el código es:

'muestra el campo de porcentaje

Private Sub Opt_porc_Click()


With Hoja2.PivotTables("Tbla_dina2").PivotFields.Item(3 3)
.Orientation = xlDataField
.Position = 1
.NumberFormat = "0.00%"
End With
'Hoja2.PivotTables("Tbla_dina2").PivotFields(15).O rientation = xlHidden
Worksheets("Tabla_1").PivotTables(2).PivotFields(1 5).Orientation = Excel.XlPivotFieldOrientation.xlHidden

End Sub

´muestra campo de valor

Private Sub Opt_valor_Click()
'With Hoja2.PivotTables("Tbla_dina2").PivotFields.Item(" Suma de saldo_cartera_vcida")
' .Orientation = xlDataField
' .Position = 1
' .NumberFormat = "#,##0"
'End With
'Hoja2.Range("A1").Select
Worksheets("Tabla_1").PivotTables(2).PivotFields(1 5).Orientation = xlDataField
Worksheets("Tabla_1").PivotTables(2).PivotFields(1 5).Position = 1
Worksheets("Tabla_1").PivotTables(2).PivotFields(1 5).NumberFormat = "#,##0"

Hoja2.Range("h10").Select
'Worksheets("Tabla_1").PivotTables(2).PivotFields( 33).Orientation = xlHidden
Worksheets("Tabla_1").PivotTables(2).PivotFields(3 3).Orientation = Excel.XlPivotFieldOrientation.xlHidden