تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بدمج المراسلات اضافة تاثيرات على الصورة
#1
بسم الله الرحمن الرحيم
الرجاء الرجاء من كل الاخوة في هذا المنتدى المساعدة في حل المشكلة الذى ساطرحها
من خلال الدوت نت باعمل دمج مراسلات للبيانات والصور من غير اي مشكلة لله الحمد ولكن مااريد هو اضافة تاثيرات على الصورة بعد دمجها بملف الورد برمجيا وهذا التاثيرات موجودة في الورد 2010 مثل اطار الصورة حاولت كثير وبحثت ولكن دون جدوى وهناك لي مشاركة على موقع ميكروسوفت على الرابط التالي

http://social.msdn.microsoft.com/Forums/...11a4fdc764
الرد }}}}
تم الشكر بواسطة:
#2
بسم الله الرحمن الرحيم
مشرفين الاقسام والاعضاء الافاضل هل ممكن حل هذا المشكلة ام حلها غير ممكن ولكن لا نيأس باعتمادنا وتوكلنا على الله ان شاء الله نجد الحل بالتعاون الجميع وطرح الافكار بانتظاركم بالردود
الرد }}}}
تم الشكر بواسطة:
#3
بسم الله الرحمن الرحيم
الحمد لله وجدنا موضوع قد يؤدي الى الحل على الرابط التالي

http://msdn.microsoft.com/library/office...e.14).aspx

msdn.microsoft.com/library/office/hh965406(v=office.14).aspx

الكود في الرابط السابق يعمل على vba الخاص ببرنامج الورد هل من احد يحول الكود الى vb.net بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#4
بسم الله الرحمن الرحيم
50 مشاهدة للموضوع ولا يوجد اي رد اما امر غريب
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

صبرا اخي الكريم ان شاء الله احد الاعضاء يقوم مشكورا بمساعدتك

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#6
بسم الله الرحمن الرحيم
أخي الكريم بارك الله فيك وجزاك الله خيرا
كل مااريده هو تحويل الكود من 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
الرد }}}}
تم الشكر بواسطة:
#7
بسم الله الرحمن الرحيم
الاخوة الافاضل في منتدى الفيجوال بيسك لكل العرب انا لا احب اثقل عليكم ولا اكثر في الطلب ولكن انا بحاجه ماسه لحل هذا المشكلة فالرجاء من لديه الامكانيات ان لا يبخل علينا حتى الجميع يستفيد بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#8
بسم الله الرحمن الرحيم
الاخوة الافاضل في منتدى الفيجوال بيسك لكل العرب انا لا احب اثقل عليكم ولا اكثر في الطلب ولكن انا بحاجه ماسه لحل هذا المشكلة فالرجاء من لديه الامكانيات ان لا يبخل علينا حتى الجميع يستفيد بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#9
نحمده ونصلي على رسوله الكريم

الكود لا يحتاج تعديلات، استخدمه كمان هو بعد اسم المتغير اللذي يشير لمكتبة 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]
الرد }}}}
تم الشكر بواسطة:
#10
بسم الله الرحمن الرحيم
اخي الكريم
كنت استخدم الكود التالي لتحديد مكان الصورة على صفحة الورد ولا يعمل مع الكود السابق

WdSelection.InlineShapes.AddPicture("d:\sample.jpg", False, True, 80, 90, 57, 62)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 163 04-11-16, 09:25 AM
آخر رد: thevirus
  التنبيه عند اضافة عميل makky 2 180 18-06-16, 07:22 PM
آخر رد: boudyonline
  [سؤال] في حالة حذف او اضافة صف جديد بالداتا جريد فيو عند التعديل لا تتأثر قاعدة البيانات ِAbou Sama 0 493 26-12-15, 03:52 AM
آخر رد: ِAbou Sama
  طلب كود عرض الصورة في picturebox moftah70 9 496 15-12-15, 10:52 PM
آخر رد: moftah70
  [سؤال] هل ممكن اضافة ملف اكسل الى الفيجوال دوت نت 2010 محمد مسافر 2 1,614 25-10-15, 10:46 AM
آخر رد: WAEL ABED
  [VB.NET] ماهي الطريقة الامثل اضافة عدد من البيانات مع صورها قناص المدينة 9 890 31-08-15, 10:48 PM
آخر رد: قناص المدينة
  كيف اعمل اضافة في جدول وتكون الإضافة في الجدول الآخر تلقائي مجروحه 4 698 22-08-15, 02:03 PM
آخر رد: مجروحه
  اضافة صورة عمار عيثاوي 1 601 14-12-14, 06:59 AM
آخر رد: سعود
  [VB.NET] اضافة سجل في datagridview1 البراء 18 2,732 28-11-14, 11:25 PM
آخر رد: atefkhalf2004
  [سؤال] حفظ الصورة فى قاعدة البيانات وعرضها مرة تانية على رمضان 8 1,936 31-10-14, 02:43 AM
آخر رد: على رمضان

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


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