Форум: "Основная";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Вниз

Стрелка в Excel   Найти похожие ветки 

← →
001   (2006-05-26 17:04) [0]

Excel пише макрос такой:
   ActiveSheet.Shapes.AddLine(255#, 95.25, 314.25, 96#).Select
   Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
   Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
   Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
   Selection.ShapeRange.Flip msoFlipHorizontal

Delphi при подключении
ComObj, OleServer, Excel2000, Activex
не знает что такое msoArrowheadTriangle

Как сделать у линии на конце стрелку?

---

← →
umbra ©   (2006-05-26 18:19) [1]

добавьте в uses Office2000 (ну или какой там у вас оффис)

---

← →
001   (2006-05-26 19:11) [2]

msoArrowheadTriangle начала понимать.
но

Shape:=Sheet.Shapes.AddLine(....
Shape.Line.EndArrowheadStyle := msoArrowheadTriangle;
выдает на второй строчке
Variant does not reference an automation object.

---

← →
001   (2006-05-27 03:54) [3]

Вопрос исчерпан. Шагать надо было от ExcelApp.Selection

---

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

Форум: "Основная";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c