>Dear Experts
>
>How to convert following VBA codes to VFP code
>
> ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 97.5, 28.5, 96.75 _
> , 17.25).Select
> Selection.Characters.Text = ""
> With Selection.Font
> .Name = "Arial"
> .FontStyle = "Regular"
> .Size = 10
> .Strikethrough = False
> .Superscript = False
> .Subscript = False
> .OutlineFont = False
> .Shadow = False
> .Underline = xlUnderlineStyleNone
> .ColorIndex = xlAutomatic
> End With
>
>Please help
#define xlUnderlineStyleNone -4142
#define xlAutomatic -4105
#define msoTextOrientationHorizontal 1
LOCAL oExcel AS Excel.Application
oExcel = CREATEOBJECT([Excel.Application])
oExcel.Workbooks.Add()
oExcel.ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 97.5, 28.5, 96.75, 17.25).Select
oExcel.Selection.Characters.Text = ""
With oExcel.Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = .f.
.Superscript = .f.
.Subscript = .f.
.OutlineFont = .f.
.Shadow = .f.
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
ENDWITH
oExcel.Visible = .t.
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
