Стрелка в 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

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