تقييم الموضوع :
  • 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)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  *[- تم الحل -]* ما هو كود اضافة ميزة المفتاح الاساسي لعمود ترقيم تلقائي موجود سعود 2 498 27-05-23, 01:44 AM
آخر رد: سعود
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,266 17-11-21, 10:09 AM
آخر رد: سعود
  [سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW atef_020 9 28,326 31-08-21, 04:59 AM
آخر رد: a7med saba
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 2,336 25-01-21, 02:45 AM
آخر رد: alims
  [SQL] اريد استعلام يظهر لي الناتج بهذه الصورة alfaiz678 8 3,394 30-11-19, 12:16 PM
آخر رد: alfaiz678
  اضافة ارقام تسلسلية فيsql Hassan.syria 1 1,368 21-11-19, 09:07 PM
آخر رد: Hassan.syria
  طلب كود عرض الصورة في picturebox moftah70 12 10,501 14-11-19, 12:09 AM
آخر رد: Hassan.syria
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 10,222 01-07-19, 12:28 PM
آخر رد: essamprog
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 2,032 20-02-19, 11:08 AM
آخر رد: alfaiz678
  كود sql اضافة او تغير كلمة المرور لقاعدة البيانات اللورد محمود 1 1,850 28-01-19, 06:56 PM
آخر رد: عبد العزيز البسكري

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


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