منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) (/showthread.php?tid=16060)

مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) - sher - 06-06-16

تحية طيبة الى اخوتي في النتدى

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

رمضان كريم يا كرام ...............................اخوكم sher

RE: مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) - AL_BRNS - 08-11-16

السلام عليكم

قم باظافة    Microsoft Word 14.0 Object Library

عن طريق :  Project > References > Microsoft Word 14.0 Object Library

وضع الكود التالي بزر امر :



PHP كود :
 Private Sub Command1_Click()
Dim objWord As New Word.Application
objWord.Documents.Add
Clipboard.Clear
Clipboard.SetData Image1.Picture
objWord.Selection.Paste
Clipboard.Clear
objWord.Visible = True
Set objWord = Nothing
End Sub 

                                                                                           
بالتوفيق اخي .