Using Excel Comments with Selection

[urikoa]

Hi to all

How do I translate this macro into progress syntax ?

Range("D2").Select
Range("D2").AddComment
Range("D2").Comment.Visible = False
Range("D2").Comment.Text Text:="SIT Users:" & Chr(10) & "test com" & Chr(10) & ""
Selection.ShapeRange.ScaleWidth 2.15, msoFalse, msoScaleFromTopLeft


What I did so far that works

CREATE "Excel.Application" ExcelAppl NO-ERROR .

ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):AddComment .

ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:Visible = FALSE .

ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:TEXT(cmm) .


how could I translate: Selection.ShapeRange.ScaleWidth 2.15, msoFalse, msoScaleFromTopLeft
?

Thanks

 

[urikoa]

Hi to all

How do I translate this macro into progress syntax ?

Range("D2").Select
Range("D2").AddComment
Range("D2").Comment.Visible = False
Range("D2").Comment.Text Text:="SIT Users:" & Chr(10) & "test com" & Chr(10) & ""
Selection.ShapeRange.ScaleWidth 2.15, msoFalse, msoScaleFromTopLeft


What I did so far that works

CREATE "Excel.Application" ExcelAppl NO-ERROR .

ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):AddComment .

ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:Visible = FALSE .

ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:TEXT(cmm) .


how could I translate: Selection.ShapeRange.ScaleWidth 2.15, msoFalse, msoScaleFromTopLeft
?


Thanks

The answer :

ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):AddComment .
ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:Visible = FALSE .
ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:TEXT(cmm) .
ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:Shape:Width = 200 .
ExcelAppl:ActiveSheet:Range("A" + STRING(LN)):Comment:Shape:Height = 150 .