Покрасить итоги в pivot Excel

← →
OW © (2011-05-31 09:57) [0]

пишу

Workbook.PivotCaches.Add( xlDatabase, "Данные!R1C1:R" + IntToStr(i) + "C" + IntToStr(j-1)).CreatePivotTable("", "СводнаяТаблицаА",true);
ActiveSheets := WorkBook.WorkSheets[1];
ActiveSheets.Name := "Сводный отчет";
ActiveSheets.PivotTables("СводнаяТаблицаА").PivotFields("DT").Orientation := xlRowField;
...
ActiveSheets.PivotTables("СводнаяТаблицаА").PivotFields("SUMM").Orientation := xlDataField;

все хорошо, начинаю красоту наводить

ActiveSheets.PivotTables("СводнаяТаблицаА").DataPivotField.PivotItems("Сумма по полю SUMM").Name := "сумма";

ок

теперь хочу покрасить
макрос говорит
ActiveSheet.PivotTables("СводнаяТаблицаА").PivotSelect _
"сумма "Column Grand Total"", xlDataAndLabel, True
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With

не понимаю что писать надо. Не подскажете?

Method "Interior" not supported by automation object
EOleError

← →
OW © (2011-05-31 09:58) [1]

т.е. так попробовал

ActiveSheets.PivotTables("СводнаяТаблицаА").DataPivotField.PivotItems("сумма").I nterior.ColorIndex := 36;

Method "Interior" not supported by automation object
EOleError

← →
sniknik © (2011-05-31 10:11) [2]

> не понимаю что писать надо.
а что говорит макрос? т.е.практически стандартная операция в случае работы с екселем...

← →
OW © (2011-05-31 10:14) [3]

> макрос говорит
> ActiveSheet.PivotTables("СводнаяТаблицаА").PivotSelect
> _
> "сумма "Column Grand Total"", xlDataAndLabel, True
> With Selection.Interior
> .ColorIndex = 41
> .Pattern = xlSolid
> End With

← →
sniknik © (2011-05-31 10:22) [4]

т.е. он говорит
> ActiveSheet.PivotTables("СводнаяТаблицаА").PivotSelect "сумма "Column Grand Total""
а ты делаешь
> ActiveSheets.PivotTables("СводнаяТаблицаА").DataPivotField.PivotItems("сумма").I nterior.ColorIndex := 36;

?
ты в макросе смену имени делал до этого?

← →
Dennis I. Komarov © (2011-05-31 10:22) [5]

Может Method "Interior" есть только у "Selection"...

Хотя не нравится мне "not supported by automation object"

← →
OW © (2011-05-31 11:21) [6]

Угу..
Переписал.
Вот так работает
ActiveSheets.PivotTables("СводнаяТаблицаА").DataPivotField.PivotItems("Сумма по полю SUMM").Name := "сумма"; Selection := ActiveSheets.PivotTables("СводнаяТаблицаА").PivotSelect("DEPT[All;Total] сумма", xlDataAndLabel, True); ExcelApp.Visible := True;

Excel показывается, то что мне надо, выделено.
остается только нажать на кнопке с цветом

Макрос говорит, что он при этом делает
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

а если я пишу
Selection := ActiveSheets.PivotTables("СводнаяТаблицаА").PivotSelect("DEPT[All;Total] сумма", xlDataAndLabel, True); Selection.Interior.ColorIndex := 6;
получаю
Invalid variant operation
EVariantInvalidOpError

← →
Плохиш © (2011-05-31 11:44) [7]

TOLeEnum(6)

← →
OW © (2011-05-31 12:03) [8]

// Selection.Interior.ColorIndex := OleCtrls.TOleEnum(6);

// LW := 6; //LW: LongWord;
// Selection.Interior.ColorIndex := LW;

// Selection.Interior.ColorIndex := LongWord(6);
тоже самое
Invalid variant operation
EVariantInvalidOpError

а, и так пойдет :)
не чего голову ломать, не критично.

> ActiveSheets.PivotTables("СводнаяТаблицаА").DataPivotField.
> PivotItems("Сумма по полю SUMM").Name := "сумма";

а вот так не желает работать в 2007 Ёкселе. Может кому пригодится.

Покрасить итоги в pivot Excel Найти похожие ветки