تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من لديه طريقة او مثال لتحويل الصوره من الفجوال بيسك 6 الى الورد
#1
السلام عليكم ورحمه الله وبركاته
من لديه طريقة او مثال لتحويل الصوره من البرنامج المبرمج في الفجوال بيسك 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
اريد تعديل الكود السابق لتحويل صوره من البرنامج للورد
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند فتح فاجوال بيسك 6 tamer2005 1 56 14-02-19, 11:14 PM
آخر رد: عبد العزيز البسكري
Question احتاج برنامج لضغط الصور بالفيجوال بيسك 6 ياقوتة 0 39 12-02-19, 06:34 PM
آخر رد: ياقوتة
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 87 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  [سؤال] هل من طريقة فعالة لتسجيل ادوات Vb iisys 10 2,334 09-02-19, 10:28 AM
آخر رد: روج افا للبرمجيات
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 15 4,056 08-02-19, 03:02 PM
آخر رد: أبوبكر سويدان
  من فضلكم طريقة رجو الكتابة الى اليمين في msflexgrid tighrmte 3 75 04-02-19, 05:48 PM
آخر رد: tighrmte
  [vb6.0] طريقة تعديل REG_BINARY في محرر الريجستري للويندوز الرجل الرمادي 2 112 03-02-19, 04:06 PM
آخر رد: الرجل الرمادي
  طلب مثال لتتبع حركة المستخدمين مصمم هاوي 4 134 20-01-19, 12:23 AM
آخر رد: مصمم هاوي
  [سؤال] فتح ملف إكسل من خلال الفيجوال بيسك 6 Abdellah 6 1,244 13-01-19, 02:26 PM
آخر رد: aminou7
  مثال لارسال صورة الى الايميل hsansalhh 9 1,018 10-01-19, 02:04 AM
آخر رد: عبدالله الصافي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم