Para los orígenes de datos OLAP, esta propiedad sólo puede devolver o tener el valor xlNormal.

Ejemplo

Este ejemplo hace que Microsoft Excel calcule los libros antes de guardarlos en el disco.

Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = True

Este ejemplo establece el campo de datos del informe de tabla dinámica de Sheet1 para que calcule la diferencia con respecto al campo base, establece el campo denominado “ORDER_DATE” para el campo base y, a continuación, establece el elemento denominado “5/16/89″ para el elemento base.

With Worksheets("Sheet1").Range("A3").PivotField
    .Calculation = xlDifferenceFrom
    .BaseField = "ORDER_DATE"
    .BaseItem = "5/16/89"
End With