Программирование сводных таблиц

Нужно перевести на OO макрос VBA. Застрял на этом куске. With ActiveSheet.PivotTables("ДебПост").Pivot Fields( _ "Сумма операции деб.") .Orientation = xlDataField .Caption = "Доля" .Function = xlSum .Calculation = xlPercentOfTotal End WithМожет кто знает, как запрограммировать ".Calculation = xlPercentOfTotal"?Если делать своднцю таблицу ручками, то в параметрах поля есть "% от всего", но как это сделать из макроса не нашел.