Диапазон в Excel, закрываемый вставленным изображением

← →
Надежда (2005-03-03 14:51) [0]

Уважаемые мастера, помогите, пожалуйста!

Необходимо bp Delphi6 в Excel последовательно выводить картинки (Shapes.Add...) и табличные данные. При этом возникла проблема определения последней закрытой изображением ячейки, выражение

WorkSheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate

не помогло, и таблица выводится "под" изображением.
Заранее спасибо за помощь

← →
olookin © (2005-03-03 15:12) [1]

Как вариант для чартов?

NumCol:=trunc(Excel.Workbooks[k].Sheets[j].ChartObjects[DiagramIndex].Width/Excel.Workbooks[k].Sheets[j].Columns[1].Widt h);

NumRow:=trunc(Excel.Workbooks[k].Sheets[j].ChartObjects[DiagramIndex].Height/Excel.Workbooks[k].Sheets[j].Rows[1].Height );

← →
Надежда (2005-03-03 15:41) [2]

Большое спасибо за мысль :-)
только один маленький вопрос, как мне обратиться к конкретному объекту коллекции Shapes по индексу
На обращение Worksheet[i].shapes[j].widht дельфи ругается очень :-(

← →
olookin © (2005-03-03 16:07) [3]

procedure TForm1.Button2Click(Sender: TObject);
var n: integer;
begin
n:=Excel.WorkBooks[1].ActiveSheet.Shapes.Count;
showmessage(inttostr(Excel.WorkBooks[1].ActiveSheet.Shapes.Item(1).Width));
end;

Обращаю внимание, что Item с круглыми скобками. Почему - не знаю.

← →
Надежда (2005-03-03 16:39) [5]

Спасибо за помощь :-)
Все работает

Диапазон в Excel, закрываемый вставленным изображением Найти похожие ветки