[scsi7000]

السلام عليكم ورحمه الله وبركاته
من لديه طريقة او مثال لتحويل الصوره من البرنامج المبرمج في الفجوال بيسك 6 الى الورد
ولكم جزيل الشكر

مثلا بدون صوره استعمل الكود التالي :

كود :

Static wd1 As Word.Application
Static wd1doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = False
Set wd1doc = wd1.Documents.Add(App.Path & "/report/trans_out.dot")

With wd1doc
   
   .FormFields("Text1").Range = Text11.Text
   .FormFields("Text2").Range = Text10.Text
   .FormFields("Text3").Range = Text1.Text
   .FormFields("Text4").Range = Text6.Text
   .FormFields("Text5").Range = Text7.Text
   .FormFields("Text6").Range = Format(Text13.Text, " d / m / yyyy ")
   .FormFields("Text7").Range = Text2.Text
   .FormFields("Text8").Range = Text3.Text
   .FormFields("Text9").Range = txt_trans_out.Text
   .FormFields("txt_u").Range = txt_user.Text
End With
wd1doc.PrintOut
wd1.ActiveDocument.Close False
wd1.Quit
End If
Set wd1doc = Nothing
Set wd1 = Nothing

اريد تعديل الكود السابق لتحويل صوره من البرنامج للورد