by hmpaquito » Mon Apr 26, 2021 1:40 pm
Hi, as subject.
- Code: Select all Expand view
cFull:= "C:\word\document.docx"
oles:= oExcel:ActiveSheet:OLEObjects
1st try:
- Code: Select all Expand view
oles:Add(nil, cFull, .f.,; // Here fail
.f., nil, 0, nil,;
1, 1, 100, 100)
2nd try:
- Code: Select all Expand view
ole:= oles:Add("Word.Document")
ole:Name:= cFull // Here Fail
3rd try:
- Code: Select all Expand view
oShapes:= oExcel:ActiveSheet:Shapes
ole:= oShapes:AddOLEObject("Word.Document", cFull, .t.,; // Here Fail
.t., "", 0, "",;
350, 60, 40, 40)
Regards
-
hmpaquito
-
- Posts: 1482
- Joined: Thu Oct 30, 2008 2:37 pm
by karinha » Mon Apr 26, 2021 4:11 pm
Examples for test?
Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha
-
- Posts: 7794
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
-
by hmpaquito » Mon Apr 26, 2021 7:35 pm
Sample:
- Code: Select all Expand view
cFullDoc:= "c:\doc\doc.docx"
oExcel:= TOleAuto:New("Excel.Application")
oExcel:WorkBooks:Add()
oExcel:Visible:= .t.
oShapes:= oExcel:ActiveSheet:Shapes
oShapes:AddOLEObject("Word.Document", cFullDoc, .t.,; // Here Fail
.t., "", 0, "",;
350, 60, 40, 40)
-
hmpaquito
-
- Posts: 1482
- Joined: Thu Oct 30, 2008 2:37 pm
by karinha » Mon Apr 26, 2021 8:12 pm
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha
-
- Posts: 7794
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
-
by hmpaquito » Mon Apr 26, 2021 11:56 pm
karinha,
No running.
Harbour and VBA, they dancing badly.
thks. Regards
-
hmpaquito
-
- Posts: 1482
- Joined: Thu Oct 30, 2008 2:37 pm
Return to FiveWin for Harbour/xHarbour
Who is online
Users browsing this forum: No registered users and 29 guests