Здравствуйте.
Сложно помочь в данном случае, не видя файла (можно было попробовать создать файл для примера).
Попробую предложить пару вариантов.
1. Если невозможно передать значение, можно попробовать получить ссылку.
Для этого нужно создать переменную типа Variant или Object, а ссылку передать при помощи оператора Set:
Код |
---|
Set curProp = Worksheets("Лист").PivotTables("Таблица").PivotFields("Поле").ShowDetail |
2. Если не получается передать булево значение напрямую, то можно попробовать выполнить проверку и присвоить значение в зависимости от результата:
Код |
---|
if Worksheets("Лист").PivotTables("Таблица").PivotFields("Поле").ShowDetail Then curProp = true: Else curProp = false |
Надеюсь, что один из вариантов поможет)