DIAdemヘルプ

Object: Arrow

  • 更新日2024-09-12
  • 5分で読める

Object: Arrow

The Arrow object provides a line or an arrow in DIAdem REPORT.

The following example adds an arrow to the current worksheet, changes the arrow display, and then exports the arrow to the graphics file MyNewArrow.png:

VBScriptPython

 

Dim oMyArrow, oMyArrowLine, oMyArrowLineColor, oMyArrowPosition
Call Report.NewLayout()
Set oMyArrow = Report.ActiveSheet.Objects.Add(eReportObjectArrow,"MyArrow")

oMyArrow.ArrowHeadAtBegin = eArrowHeadPoint
oMyArrow.ArrowHeadAtEnd = eArrowHeadStandardArrow

Set oMyArrowPosition = oMyArrow.Position.ByCoordinate
oMyArrowPosition.X1 = 10
oMyArrowPosition.X2 = 40
oMyArrowPosition.Y1 = 30
oMyArrowPosition.Y2 = 90

Set oMyArrowLine = oMyArrow.Line
oMyArrowLine.LineType = eLineTypeDotted
oMyArrowLine.Width = eLineWidth0200

Set oMyArrowLineColor = oMyArrowLine.Color
Call oMyArrowLineColor.SetPredefinedColor(eColorIndexGreen)

Call oMyArrow.ExportToImage(LayoutWritePath & "MyNewArrow", eImageExportTypePNG)