بسم الله الرحمن الرحيم
الرجاء الرجاء من كل الاخوة في هذا المنتدى المساعدة في حل المشكلة الذى ساطرحها
من خلال الدوت نت باعمل دمج مراسلات للبيانات والصور من غير اي مشكلة لله الحمد ولكن مااريد هو اضافة تاثيرات على الصورة بعد دمجها بملف الورد برمجيا وهذا التاثيرات موجودة في الورد 2010 مثل اطار الصورة حاولت كثير وبحثت ولكن دون جدوى وهناك لي مشاركة على موقع ميكروسوفت على الرابط التالي
http://social.msdn.microsoft.com/Forums/...11a4fdc764
بسم الله الرحمن الرحيم
مشرفين الاقسام والاعضاء الافاضل هل ممكن حل هذا المشكلة ام حلها غير ممكن ولكن لا نيأس باعتمادنا وتوكلنا على الله ان شاء الله نجد الحل بالتعاون الجميع وطرح الافكار بانتظاركم بالردود
بسم الله الرحمن الرحيم
الحمد لله وجدنا موضوع قد يؤدي الى الحل على الرابط التالي
http://msdn.microsoft.com/library/office...e.14).aspx
msdn.microsoft.com/library/office/hh965406(v=office.14).aspx
الكود في الرابط السابق يعمل على vba الخاص ببرنامج الورد هل من احد يحول الكود الى vb.net بارك الله فيكم
بسم الله الرحمن الرحيم
50 مشاهدة للموضوع ولا يوجد اي رد اما امر غريب
السلام عليكم ورحمة الله وبركاته
صبرا اخي الكريم ان شاء الله احد الاعضاء يقوم مشكورا بمساعدتك
يعطيك العافية
بسم الله الرحمن الرحيم
أخي الكريم بارك الله فيك وجزاك الله خيرا
كل مااريده هو تحويل الكود من vba الى vb.net
الكود التالي
كود :
Public Sub AddPictureStyles()
Dim WdSelection As Selection
Dim WdInlineShape As InlineShape
Dim WdShape As Shape
Set WdSelection = Application.ActiveWindow.Selection
Set WdInlineShape = WdSelection.InlineShapes.AddPicture("C:\Users\username\Pictures\portrait.jpg")
Set WdShape = WdInlineShape.ConvertToShape
' Set the color type
WdShape.PictureFormat.ColorType = msoPictureAutomatic
' Set the reflection type
WdShape.Reflection.Type = msoReflectionType2
' Set the frame shape to oval
WdShape.AutoShapeType = msoShapeOval
WdShape.Line.Style = msoLineThickBetweenThin
WdShape.Line.Weight = 10
' Set the artistic picture effect
WdShape.Fill.PictureEffects.Insert (msoEffectPlasticWrap)
' Set the size and color of the frame extrusion
WdShape.ThreeD.SetThreeDFormat (msoThreeD2)
WdShape.ThreeD.ExtrusionColor = RGB(Red:=255, Green:=28, Blue:=0)
' Set the shape rotation and perspective
WdShape.ThreeD.RotationX = 35
WdShape.ThreeD.RotationY = 8
WdShape.ThreeD.RotationZ = 357
WdShape.ThreeD.Perspective = msoTrue
End Sub
بسم الله الرحمن الرحيم
الاخوة الافاضل في منتدى الفيجوال بيسك لكل العرب انا لا احب اثقل عليكم ولا اكثر في الطلب ولكن انا بحاجه ماسه لحل هذا المشكلة فالرجاء من لديه الامكانيات ان لا يبخل علينا حتى الجميع يستفيد بارك الله فيكم
بسم الله الرحمن الرحيم
الاخوة الافاضل في منتدى الفيجوال بيسك لكل العرب انا لا احب اثقل عليكم ولا اكثر في الطلب ولكن انا بحاجه ماسه لحل هذا المشكلة فالرجاء من لديه الامكانيات ان لا يبخل علينا حتى الجميع يستفيد بارك الله فيكم
نحمده ونصلي على رسوله الكريم
الكود لا يحتاج تعديلات، استخدمه كمان هو بعد اسم المتغير اللذي يشير لمكتبة MS Word:
كود :
[align=left]Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Core
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim w As New Microsoft.Office.Interop.Word.Application()
w.Visible = True
w.Activate()
w.Documents.Add()
'
Dim WdSelection As Selection
Dim WdInlineShape As InlineShape
Dim WdShape As Microsoft.Office.Interop.Word.Shape
WdSelection = w.ActiveWindow.Selection
WdInlineShape = WdSelection.InlineShapes.AddPicture("C:\Users\username\Pictures\portrait.jpg")
WdShape = WdInlineShape.ConvertToShape
' Set the color type
WdShape.PictureFormat.ColorType = MsoPictureColorType.msoPictureAutomatic
' Set the reflection type
WdShape.Reflection.Type = MsoReflectionType.msoReflectionType2
' Set the frame shape to oval
WdShape.AutoShapeType = MsoAutoShapeType.msoShapeOval
WdShape.Line.Style = MsoLineStyle.msoLineThickBetweenThin
WdShape.Line.Weight = 10
' Set the artistic picture effect
WdShape.Fill.PictureEffects.Insert(MsoPictureEffectType.msoEffectPlasticWrap)
' Set the size and color of the frame extrusion
WdShape.ThreeD.SetThreeDFormat(MsoPresetThreeDFormat.msoThreeD2)
'WdShape.ThreeD.ExtrusionColor = RGB(Red:=255, Green:=28, Blue:=0)
' Set the shape rotation and perspective
WdShape.ThreeD.RotationX = 35
WdShape.ThreeD.RotationY = 8
WdShape.ThreeD.RotationZ = 357
WdShape.ThreeD.Perspective = MsoTriState.msoTrue
End Sub
End Class
[/align]
بسم الله الرحمن الرحيم
اخي الكريم
كنت استخدم الكود التالي لتحديد مكان الصورة على صفحة الورد ولا يعمل مع الكود السابق
WdSelection.InlineShapes.AddPicture("d:\sample.jpg", False, True, 80, 90, 57, 62)