تقييم الموضوع :
  • 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
اريد تعديل الكود السابق لتحويل صوره من البرنامج للورد
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين MSFlexGrid ahmed201 7 130 08-01-21, 11:31 PM
آخر رد: سعود
  طريقة عرض اي عمود يتم تحديده في MSFlexGrid ahmed201 3 168 07-01-21, 03:54 PM
آخر رد: ahmed201
  طريقة تصميم برنامج حضور ونصراف بصمه ahmed201 0 48 06-01-21, 11:47 AM
آخر رد: ahmed201
  طريقة اضافة قيمه للموظف بشرط ahmed201 4 115 29-12-20, 03:07 AM
آخر رد: ahmed201
  [vb6.0] الرجاء المساعده كيفيه ربط الكرستال ريبورت 9.2 مع الفجوال بيسك 6 زياد البركاني 1 152 16-12-20, 11:47 AM
آخر رد: السيد الغالي
  [vb6.0] الرجاء المساعده كيفيه ربط الكرستال ريبورت 9.2 مع الفجوال بيسك 6 زياد البركاني 0 77 02-12-20, 03:06 AM
آخر رد: زياد البركاني
Question هل يمكن مثال يظهر رقم التدرج الولي لي أي صورة ؟؟ Microformt 0 119 21-11-20, 04:50 PM
آخر رد: Microformt
  [vb6.0] من لديه طريقه مثال او كود لارسال ملف من vb6 الي WhatsApp scsi7000 1 159 16-11-20, 09:22 PM
آخر رد: ياسر عبد الكريم
  طلب طريقة عمل جدولين في نفس التقرير ahmed250 0 418 24-08-20, 03:23 AM
آخر رد: ahmed250
  طريقة استخراج إنتهاء الاشتراك لعملاء ahmed250 2 336 17-08-20, 11:42 AM
آخر رد: ahmed250

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


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