Excel Auomation - Adding Textbox

I'm hoping to have better luck posting this the second time around.

I've gotten most of the elements to creating Excel sheets down and adding
data to them. I want to add a textbox to a sheet for some free flowing
data. I'm having a problem getting the code from VB to VFP.

Here is the VB code:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False,
DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25,
Height:=47.25).Select

If anybody would know how to, also, add text to it, I'd much appreciate.

Thanks.

Thierry
Wed Feb 09 15:08:45 CST 2005

oXls.activeSheet.OLEObjects.add("Forms.TextBox.1",,,,,,,11.25,322.5,428.25,47.25).Select

--
Thierry


"Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
b6qdnY0HM8vXq5ffRVn-jw@rcn.net...
> I'm hoping to have better luck posting this the second time around.
>
> I've gotten most of the elements to creating Excel sheets down and adding
> data to them. I want to add a textbox to a sheet for some free flowing
> data. I'm having a problem getting the code from VB to VFP.
>
> Here is the VB code:
> ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False,
> DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25,
> Height:=47.25).Select
>
> If anybody would know how to, also, add text to it, I'd much appreciate.
>
> Thanks.
>
>

Big
Wed Feb 09 15:24:31 CST 2005

Thierry:

I appreciate the effort, but I get a syntax error with this.

BR

"Thierry" <tper_NOSPAM@vfemail.net> wrote in message
news:u0X1xtuDFHA.512@TK2MSFTNGP15.phx.gbl...
>
oXls.activeSheet.OLEObjects.add("Forms.TextBox.1",,,,,,,11.25,322.5,428.25,4
7.25).Select
>
> --
> Thierry
>
>
> "Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
> b6qdnY0HM8vXq5ffRVn-jw@rcn.net...
> > I'm hoping to have better luck posting this the second time around.
> >
> > I've gotten most of the elements to creating Excel sheets down and
adding
> > data to them. I want to add a textbox to a sheet for some free flowing
> > data. I'm having a problem getting the code from VB to VFP.
> >
> > Here is the VB code:
> > ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False,
> > DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25,
> > Height:=47.25).Select
> >
> > If anybody would know how to, also, add text to it, I'd much appreciate.
> >
> > Thanks.
> >
> >
>
>

Big
Wed Feb 09 15:38:23 CST 2005

OK. If I do:
.activeSheet.OLEObjects.add("Forms.TextBox.1").Select

I get a textbox, but not the shape I want. I tried other wyas and they all
fail.

Any help is appreciated.

BR

"Thierry" <tper_NOSPAM@vfemail.net> wrote in message
news:u0X1xtuDFHA.512@TK2MSFTNGP15.phx.gbl...
>
oXls.activeSheet.OLEObjects.add("Forms.TextBox.1",,,,,,,11.25,322.5,428.25,4
7.25).Select
>
> --
> Thierry
>
>
> "Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
> b6qdnY0HM8vXq5ffRVn-jw@rcn.net...
> > I'm hoping to have better luck posting this the second time around.
> >
> > I've gotten most of the elements to creating Excel sheets down and
adding
> > data to them. I want to add a textbox to a sheet for some free flowing
> > data. I'm having a problem getting the code from VB to VFP.
> >
> > Here is the VB code:
> > ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False,
> > DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25,
> > Height:=47.25).Select
> >
> > If anybody would know how to, also, add text to it, I'd much appreciate.
> >
> > Thanks.
> >
> >
>
>

Thierry
Wed Feb 09 15:39:05 CST 2005

What is the error message ?

--
Thierry


"Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
abWdnZYGSuES4pffRVn-gA@rcn.net...
> Thierry:
>
> I appreciate the effort, but I get a syntax error with this.
>
> BR
>
> "Thierry" <tper_NOSPAM@vfemail.net> wrote in message
> news:u0X1xtuDFHA.512@TK2MSFTNGP15.phx.gbl...
>>
> oXls.activeSheet.OLEObjects.add("Forms.TextBox.1",,,,,,,11.25,322.5,428.25,4
> 7.25).Select
>>
>> --
>> Thierry
>>
>>
>> "Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
>> b6qdnY0HM8vXq5ffRVn-jw@rcn.net...
>> > I'm hoping to have better luck posting this the second time around.
>> >
>> > I've gotten most of the elements to creating Excel sheets down and
> adding
>> > data to them. I want to add a textbox to a sheet for some free flowing
>> > data. I'm having a problem getting the code from VB to VFP.
>> >
>> > Here is the VB code:
>> > ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1",
>> > Link:=False,
>> > DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25,
>> > Height:=47.25).Select
>> >
>> > If anybody would know how to, also, add text to it, I'd much
>> > appreciate.
>> >
>> > Thanks.
>> >
>> >
>>
>>
>
>

Thierry
Wed Feb 09 16:01:39 CST 2005

WITH oXls.ActiveSheet.oleObjects.add("Forms.TextBox.1")
.left=11.25
.top=322.5
.width=428.25
.height=47.25
.select
ENDWITH

--
Thierry


"Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
nv2dnUaByJNSH5ffRVn-oA@rcn.net...
> OK. If I do:
> .activeSheet.OLEObjects.add("Forms.TextBox.1").Select
>
> I get a textbox, but not the shape I want. I tried other wyas and they
> all
> fail.
>
> Any help is appreciated.
>
> BR
>
> "Thierry" <tper_NOSPAM@vfemail.net> wrote in message
> news:u0X1xtuDFHA.512@TK2MSFTNGP15.phx.gbl...
>>
> oXls.activeSheet.OLEObjects.add("Forms.TextBox.1",,,,,,,11.25,322.5,428.25,4
> 7.25).Select
>>
>> --
>> Thierry
>>
>>
>> "Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
>> b6qdnY0HM8vXq5ffRVn-jw@rcn.net...
>> > I'm hoping to have better luck posting this the second time around.
>> >
>> > I've gotten most of the elements to creating Excel sheets down and
> adding
>> > data to them. I want to add a textbox to a sheet for some free flowing
>> > data. I'm having a problem getting the code from VB to VFP.
>> >
>> > Here is the VB code:
>> > ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1",
>> > Link:=False,
>> > DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25,
>> > Height:=47.25).Select
>> >
>> > If anybody would know how to, also, add text to it, I'd much
>> > appreciate.
>> >
>> > Thanks.
>> >
>> >
>>
>>
>
>

TravisSutterfield
Mon May 09 13:57:42 CDT 2005

This code works great for adding a textbox to an Active Sheet, but how does
the code work to add a textbox to an Active Chart?

"Thierry" wrote:

> WITH oXls.ActiveSheet.oleObjects.add("Forms.TextBox.1")
> .left=11.25
> .top=322.5
> .width=428.25
> .height=47.25
> .select
> ENDWITH
>
> --
> Thierry
>
>
> "Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
> nv2dnUaByJNSH5ffRVn-oA@rcn.net...
> > OK. If I do:
> > .activeSheet.OLEObjects.add("Forms.TextBox.1").Select
> >
> > I get a textbox, but not the shape I want. I tried other wyas and they
> > all
> > fail.
> >
> > Any help is appreciated.
> >
> > BR
> >
> > "Thierry" <tper_NOSPAM@vfemail.net> wrote in message
> > news:u0X1xtuDFHA.512@TK2MSFTNGP15.phx.gbl...
> >>
> > oXls.activeSheet.OLEObjects.add("Forms.TextBox.1",,,,,,,11.25,322.5,428.25,4
> > 7.25).Select
> >>
> >> --
> >> Thierry
> >>
> >>
> >> "Big Bubba" <spamhere@aol.com> a écrit dans le message de news:
> >> b6qdnY0HM8vXq5ffRVn-jw@rcn.net...
> >> > I'm hoping to have better luck posting this the second time around.
> >> >
> >> > I've gotten most of the elements to creating Excel sheets down and
> > adding
> >> > data to them. I want to add a textbox to a sheet for some free flowing
> >> > data. I'm having a problem getting the code from VB to VFP.
> >> >
> >> > Here is the VB code:
> >> > ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1",
> >> > Link:=False,
> >> > DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25,
> >> > Height:=47.25).Select
> >> >
> >> > If anybody would know how to, also, add text to it, I'd much
> >> > appreciate.
> >> >
> >> > Thanks.
> >> >
> >> >
> >>
> >>
> >
> >
>
>
>