Property: Position for Comment

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)


DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

Specifies the position of a comment in a DIAdem REPORT worksheet.

Set oObjectPosition = Object.Position
ObjectComment
Object with this property
oObjectPositionObjectPosition
Returned object

The following example generates a comment and specifies the position of this comment:

Dim oMyComment, oMyPosComment, oMyArrow, oMyPosArrow
Call Report.NewLayout()
Set oMyComment = Report.ActiveSheet.Objects.Add(eReportObjectComment,"MyArrow")
oMyComment.Comment.Text = "My comment"
Set oMyPosComment = oMyComment.Position.ByCoordinate
oMyPosComment.X1 = 10
oMyPosComment.X2 = 30
oMyPosComment.Y1 = 10
oMyPosComment.Y2 = 30
Set oMyArrow = oMyComment.Arrow
oMyArrow.ArrowHeadAtBegin = eArrowHeadNone
oMyArrow.ArrowHeadAtEnd = eArrowHeadStandardArrow
Set oMyPosArrow = oMyArrow.Position
oMyPosArrow.XStart = 100
oMyPosArrow.XEnd = 40
oMyPosArrow.YStart = 100
oMyPosArrow.YEnd = 40
Call Report.Refresh()

WAS THIS ARTICLE HELPFUL?

Not Helpful