Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Надежда © (2005-03-03 14:51:00)
Уважаемые мастера, помогите, пожалуйста!

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

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

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

Надежда (2005-03-03 16:39:00) [1]
Спасибо за помощь :-)
Все работает

olookin (2005-03-03 16:08:00) [2]
Обращаю внимание, что Item с круглыми скобками. Почему - не знаю.

olookin (2005-03-03 16:07:00) [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;

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

olookin (2005-03-03 15:12:00) [5]
Как вариант для чартов?

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 );

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »