اذهب الي المحتوي
أوفيسنا

كيف ننافس الفوتوشوب بالوورد


رضا عقيل

الردود الموصى بها

اهلاً أخي ماكرو :)

الحبايب كلهم هنا !!!!!!!!!!! :hart: :hart:

بس انا مت من الضحك من كلمة وردجي قديم حسيت ان عمرك 85 سنة

حرام عليك 26 سنة بس وحياتك لكن أعمل على الوررد من أيام ورد 2 وويندوز 3.11 :rol:

رابط هذا التعليق
شارك

أخي أشرف :rol:

الفكره كلها .. كيف نوظف أقل الإمكانيات للحصول على أقصى درجة جوده ممكنة ..

ولا تنسى أنني ضمن الجروب ولكن أحاول توظيف الوورد للخروج ببعض التصميمات الجيده ( بالنسبة للورد )

مع خالص تحياتي

[flipv] وعلى فكره أناناسك طعمه وحش :lol: :lol: [/flipv]

رابط هذا التعليق
شارك

الأخ رضا .... جزاك الله خير الجزاء على هذه الأفكار الرائعة

لكن ما تنفتح عندي الملفات وحاولت أفتحها مع برنامج آخر ولكن لم أنجح ، فهل بالامكان تبيين لي كيف يمكن فتح الملفات ؟

وشكرا

رابط هذا التعليق
شارك

خي رضاء

المصمم الرائع بافكاره وتصاميمه

مشاء الله تبارك الله

فنك رائع في هذه الامثله المطروحه لنا بالرغم من عملي على برنامج الفوتوشوب ودقت تصاميمه

الا ان ما طرحته لنا ينافسه وبقوه

ولكن لدي اقتراح

مارائيكم لو طلبنا من الاخ رضاء شرح احد هذه الامثله فقط

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

ما رأيكم .. ؟

رابط هذا التعليق
شارك

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

الملف مرفق به الشرح وهذا الماكرو يقوم بعمل اللازم خلا ثانيه واحده بعد فتح ملف جديد وكتابة كلمة أوفيسنا فقط والملف به الشرح الأكثر تفصيلاً

Sub ماكرو4()

'

' ماكرو4 ماكرو

' تسجيل الماكرو ‏24‏/08‏/2003 من قبل COM2000

'

    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.Fill.Visible = msoTrue

    Selection.ShapeRange.Fill.Solid

    Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.Line.Visible = msoTrue

    Selection.ShapeRange.Fill.Visible = msoTrue

    Selection.ShapeRange.Fill.Solid

    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.Fill.Transparency = 0#

    Selection.ShapeRange.Line.Weight = 8#

    Selection.ShapeRange.Line.DashStyle = msoLineSolid

    Selection.ShapeRange.Line.Style = msoLineSingle

    Selection.ShapeRange.Line.Transparency = 0#

    Selection.ShapeRange.Line.Visible = msoTrue

    Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.LockAspectRatio = msoFalse

    Selection.ShapeRange.Rotation = 0#

    Selection.ShapeRange.Left = 64.3

    Selection.ShapeRange.Top = 55.25

    Selection.ShapeRange.RelativeHorizontalPosition = _

        wdRelativeHorizontalPositionColumn

    Selection.ShapeRange.RelativeVerticalPosition = _

        wdRelativeVerticalPositionParagraph

    Selection.ShapeRange.Left = CentimetersToPoints(1.27)

    Selection.ShapeRange.Top = CentimetersToPoints(0.95)

    Selection.ShapeRange.LockAnchor = False

    Selection.ShapeRange.WrapFormat.AllowOverlap = True

    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth

    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)

    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)

    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)

    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)

    Selection.ShapeRange.WrapFormat.Type = 3

    Selection.ShapeRange.ZOrder 4

    Selection.ShapeRange.Shadow.Visible = msoFalse

    Selection.ShapeRange.Duplicate.Select

    Selection.ShapeRange.Line.Weight = 4.5

    Selection.ShapeRange.Line.Visible = msoTrue

    Selection.ShapeRange.Line.Style = msoLineSingle

    Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 128)

    Selection.ShapeRange.Line.Visible = msoTrue

    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 128)

    Selection.ShapeRange.Fill.Visible = msoTrue

    Selection.ShapeRange.Fill.Solid

    Selection.ShapeRange.Duplicate.Select

    Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.Line.Visible = msoTrue

    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.Fill.Visible = msoTrue

    Selection.ShapeRange.Fill.Solid

    Selection.ShapeRange.Line.Weight = 3#

    Selection.ShapeRange.Line.Visible = msoTrue

    Selection.ShapeRange.Line.Style = msoLineSingle

    Selection.ShapeRange.Duplicate.Select

    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)

    Selection.ShapeRange.Fill.Visible = msoTrue

    Selection.ShapeRange.Fill.Solid

    Selection.ShapeRange.Line.Visible = msoFalse

    ActiveDocument.Shapes.Range(Array("WordArt 5", "WordArt 4")).Select

    ActiveDocument.Shapes.Range(Array("WordArt 5", "WordArt 4", "WordArt 3")). _

        Select

    ActiveDocument.Shapes.Range(Array("WordArt 5", "WordArt 4", "WordArt 3", _

        "WordArt 2")).Select

    Selection.ShapeRange.Align msoAlignCenters, False

    Selection.ShapeRange.Align msoAlignMiddles, False

    ActiveDocument.Shapes.AddShape(msoShapeRectangle, 64.35, 64.35, 474#, _

        126#).Select

    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 0)

    Selection.ShapeRange.Fill.Visible = msoTrue

    Selection.ShapeRange.Fill.Solid

    Selection.ShapeRange.ZOrder msoSendToBack

End Sub

هذا الشرح على عجاله وسامحوني لضيق الوقت

مع خالص تحياتي

أخوكم رضا عقيل

liner.rar

رابط هذا التعليق
شارك

  • 3 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information