منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
بدمج المراسلات اضافة تاثيرات على الصورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : بدمج المراسلات اضافة تاثيرات على الصورة (/showthread.php?tid=7563)

الصفحات: 1 2


بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 04-02-13

بسم الله الرحمن الرحيم
الرجاء الرجاء من كل الاخوة في هذا المنتدى المساعدة في حل المشكلة الذى ساطرحها
من خلال الدوت نت باعمل دمج مراسلات للبيانات والصور من غير اي مشكلة لله الحمد ولكن مااريد هو اضافة تاثيرات على الصورة بعد دمجها بملف الورد برمجيا وهذا التاثيرات موجودة في الورد 2010 مثل اطار الصورة حاولت كثير وبحثت ولكن دون جدوى وهناك لي مشاركة على موقع ميكروسوفت على الرابط التالي

http://social.msdn.microsoft.com/Forums/en-US/worddev/thread/3f59576c-b7d0-4f23-b723-b711a4fdc764


بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 05-02-13

بسم الله الرحمن الرحيم
مشرفين الاقسام والاعضاء الافاضل هل ممكن حل هذا المشكلة ام حلها غير ممكن ولكن لا نيأس باعتمادنا وتوكلنا على الله ان شاء الله نجد الحل بالتعاون الجميع وطرح الافكار بانتظاركم بالردود


بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 06-02-13

بسم الله الرحمن الرحيم
الحمد لله وجدنا موضوع قد يؤدي الى الحل على الرابط التالي

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

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

الكود في الرابط السابق يعمل على vba الخاص ببرنامج الورد هل من احد يحول الكود الى vb.net بارك الله فيكم


بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 08-02-13

بسم الله الرحمن الرحيم
50 مشاهدة للموضوع ولا يوجد اي رد اما امر غريب


بدمج المراسلات اضافة تاثيرات على الصورة - abulayth - 08-02-13

السلام عليكم ورحمة الله وبركاته

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

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


بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 08-02-13

بسم الله الرحمن الرحيم
أخي الكريم بارك الله فيك وجزاك الله خيرا
كل مااريده هو تحويل الكود من 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



بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 09-02-13

بسم الله الرحمن الرحيم
الاخوة الافاضل في منتدى الفيجوال بيسك لكل العرب انا لا احب اثقل عليكم ولا اكثر في الطلب ولكن انا بحاجه ماسه لحل هذا المشكلة فالرجاء من لديه الامكانيات ان لا يبخل علينا حتى الجميع يستفيد بارك الله فيكم


بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 09-02-13

بسم الله الرحمن الرحيم
الاخوة الافاضل في منتدى الفيجوال بيسك لكل العرب انا لا احب اثقل عليكم ولا اكثر في الطلب ولكن انا بحاجه ماسه لحل هذا المشكلة فالرجاء من لديه الامكانيات ان لا يبخل علينا حتى الجميع يستفيد بارك الله فيكم


بدمج المراسلات اضافة تاثيرات على الصورة - ربيع - 09-02-13

نحمده ونصلي على رسوله الكريم

الكود لا يحتاج تعديلات، استخدمه كمان هو بعد اسم المتغير اللذي يشير لمكتبة 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]



بدمج المراسلات اضافة تاثيرات على الصورة - البراء - 09-02-13

بسم الله الرحمن الرحيم
اخي الكريم
كنت استخدم الكود التالي لتحديد مكان الصورة على صفحة الورد ولا يعمل مع الكود السابق

WdSelection.InlineShapes.AddPicture("d:\sample.jpg", False, True, 80, 90, 57, 62)