Image in word

Image in word

Postby oliveiros junior » Wed Nov 07, 2018 7:35 pm

Hello,

Friends how do I insert an image into a word document? I saw an example of the enrico giordano but that did not work in Office 2010.
Could anyone help?

Thanks in advance for your help.
thank you.

Att.,

Oliveiros Junior
oliveiros junior
 
Posts: 125
Joined: Tue Mar 20, 2007 3:13 pm

Re: Image in word

Postby Otto » Wed Nov 07, 2018 9:12 pm

Hello,
please see:
viewtopic.php?t=13495
and
viewtopic.php?f=3&t=35141&p=209066&hilit=word#p209066
I think you can replace the bmp files inside docx.

Best regards,
Otto

Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6346
Joined: Fri Oct 07, 2005 7:07 pm

Re: Image in word

Postby Enrico Maria Giordano » Wed Nov 07, 2018 9:59 pm

oliveiros junior wrote:Friends how do I insert an image into a word document? I saw an example of the enrico giordano but that did not work in Office 2010.


Which sample?

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8719
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Image in word

Postby stefano » Wed Nov 07, 2018 11:07 pm

I use

Code: Select all  Expand view  RUN
hBmp:=ReadBitmap(0, CurDrive()+':'+Curdir()+'\QRCODE.BMP')
    nHig=nBmpHeight(hBmp)
    nWid=nBmpWidth(hBmp)
    oWord:AddImagen( 10, 20, 10+nHig, 20+nWid, CurDrive()+'
:\'+Curdir()+'\QRCODE.BMP',{1,1,1,1,1,1})


saluti
FWH 14.11 + xHarbour + bcc582
stefano
 
Posts: 80
Joined: Tue Mar 25, 2008 9:03 pm
Location: ITALIA

Re: Image in word

Postby oliveiros junior » Thu Nov 08, 2018 12:25 am

Hello,

Thank you all for the answers. I will test and return them.

Enrico:

viewtopic.php?f=3&t=26774&p=148447&hilit=image+word#p148447

Thank you very much.

Att.,

Oliveiros Junior
oliveiros junior
 
Posts: 125
Joined: Tue Mar 20, 2007 3:13 pm

Re: Image in word

Postby Enrico Maria Giordano » Thu Nov 08, 2018 8:53 am



We need of a reduced and self-contained sample (with the document too) showing the problem as it is working fine here (Word 2013).

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8719
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Image in word

Postby oliveiros junior » Thu Nov 08, 2018 12:27 pm

Hello,

My goal was to put the QRCode image in the document.
I did a mix of information that worked like this:

In the word document I created the # qrcode #;

I created the QRCode;

QRCode ("test", cImage_QRCode)

In the code I put like this:

oSel: Find: Execute ("# qrcode #")
oSel: InLineShapes: AddPicture (cImage_QRCode, .F., .T.)

Printing is taking place at the tag location.

Thank you Otto, Enrico and Stefano.

I just needed to set the size of the image. The last parameter of AddPicture and the range, I would like some help to set the range.

Att.,

Oliveiros Junior
oliveiros junior
 
Posts: 125
Joined: Tue Mar 20, 2007 3:13 pm

Re: Image in word (Enrico giordano)

Postby oliveiros junior » Wed Nov 21, 2018 12:36 pm

Hello Enrico,

Could you forward to your e-mail the template of the document of the word that I need to put the image (QRCode), so that you orient me in what I am erring? if so which email could you send?

As I said before, I can put the QRCode image in the document, but I needed to specify the size of the image. I thought if you could put a text box, like your example, the image would fit the size of the text box. Is my reasoning correct?

I thank the attention.

Att.,

Oliveiros Junior
oliveiros junior
 
Posts: 125
Joined: Tue Mar 20, 2007 3:13 pm

Re: Image in word

Postby Enrico Maria Giordano » Wed Nov 21, 2018 12:54 pm

I've never change the size of a Word text box, sorry.

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8719
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Image in word

Postby oliveiros junior » Wed Nov 21, 2018 1:31 pm

Hello Enrico,

Thanks for the feedback.

Att.,

Oliveiros Junior
oliveiros junior
 
Posts: 125
Joined: Tue Mar 20, 2007 3:13 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 63 guests