Скачать: CL | DM;

Диапазон в 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;

---

← →
olookin ©   (2005-03-03 16:08) [4]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c