رضا عقيل قام بنشر أغسطس 20, 2003 قام بنشر أغسطس 20, 2003 أفكار بسيطه نستطيع بها عمل بعض الأشياء التي تشبه الفوتوشوب أتمنى أن تعجبكم وألا تكون مكرره فهي منبنات أفكاري مرفق الملف reda.rar
محمد طاهر عرفه قام بنشر أغسطس 20, 2003 قام بنشر أغسطس 20, 2003 شكل راااااااااااااااااائع و فكرة جميلة أمضيت خمسة دقائق قبل أن أصل الي الفكرة :)
رضا عقيل قام بنشر أغسطس 20, 2003 الكاتب قام بنشر أغسطس 20, 2003 أخي العزيز حول هتوصل صدقني :) وهذه فكره أخرى تعتمد على نفس الأسلوب مرفق الملف فهل ياترى نقدر ننافس الفوتوشوب ولو بسيط reda3.rar
رضا عقيل قام بنشر أغسطس 20, 2003 الكاتب قام بنشر أغسطس 20, 2003 وهذه فكره ثالثة للخط الذهبي المجسم مرفق ملف reda2.rar
رضا عقيل قام بنشر أغسطس 20, 2003 الكاتب قام بنشر أغسطس 20, 2003 وهذه فكره أخرى تعتمد علة نفس الأسلوب في العمل أتنمى أن تكون مفيده مع خالص تحياتي reda4.rar
اا الفاروق اا قام بنشر أغسطس 21, 2003 قام بنشر أغسطس 21, 2003 السلام عليكم بالفعل جيد ... ولكن كم من الوقت امضيت فى احدهم ؟
رضا عقيل قام بنشر أغسطس 21, 2003 الكاتب قام بنشر أغسطس 21, 2003 أخي الفاروق أعقد تصميم فيهم لا يأخذ أكثر من خمس دقائق بل يقل ولا تستغرب فأنا وردجي قديم
Micro قام بنشر أغسطس 21, 2003 قام بنشر أغسطس 21, 2003 حبيبي رضا تصميم روعة بس انا مت من الضحك من كلمة وردجي قديم حسيت ان عمرك 85 سنة :lol: :lol: :lol: :lol:
رضا عقيل قام بنشر أغسطس 21, 2003 الكاتب قام بنشر أغسطس 21, 2003 اهلاً أخي ماكرو :) الحبايب كلهم هنا !!!!!!!!!!! :hart: :hart: بس انا مت من الضحك من كلمة وردجي قديم حسيت ان عمرك 85 سنة حرام عليك 26 سنة بس وحياتك لكن أعمل على الوررد من أيام ورد 2 وويندوز 3.11
ashraf قام بنشر أغسطس 22, 2003 قام بنشر أغسطس 22, 2003 أفكار حلوة يا رضا بس صعب تنافس الفوتوشوب وحتى أسال مجموعة الجرافيكس ( هشام - حمزة - حسن ) وخليها فى سرك . أشرف خليل
رضا عقيل قام بنشر أغسطس 23, 2003 الكاتب قام بنشر أغسطس 23, 2003 أخي أشرف الفكره كلها .. كيف نوظف أقل الإمكانيات للحصول على أقصى درجة جوده ممكنة .. ولا تنسى أنني ضمن الجروب ولكن أحاول توظيف الوورد للخروج ببعض التصميمات الجيده ( بالنسبة للورد ) مع خالص تحياتي [flipv] وعلى فكره أناناسك طعمه وحش :lol: :lol: [/flipv]
متشائل قام بنشر أغسطس 23, 2003 قام بنشر أغسطس 23, 2003 الأخ رضا .... جزاك الله خير الجزاء على هذه الأفكار الرائعة لكن ما تنفتح عندي الملفات وحاولت أفتحها مع برنامج آخر ولكن لم أنجح ، فهل بالامكان تبيين لي كيف يمكن فتح الملفات ؟ وشكرا
رحيل قام بنشر أغسطس 23, 2003 قام بنشر أغسطس 23, 2003 خي رضاء المصمم الرائع بافكاره وتصاميمه مشاء الله تبارك الله فنك رائع في هذه الامثله المطروحه لنا بالرغم من عملي على برنامج الفوتوشوب ودقت تصاميمه الا ان ما طرحته لنا ينافسه وبقوه ولكن لدي اقتراح مارائيكم لو طلبنا من الاخ رضاء شرح احد هذه الامثله فقط ومن ثم نبدأ نحن بتجربة انفسنا بالامثله الاخرى وكل عضو منا يبدأ بعرض تصميمه ونستفيد من بعضمنا ما رأيكم .. ؟
ashraf قام بنشر أغسطس 23, 2003 قام بنشر أغسطس 23, 2003 وقعت فى شر أعمالك يا رضا . يلا ياعم حط الشرح الجميل زي شرحك فى الأكسيس والحماية .
ابو مشاري قام بنشر أغسطس 24, 2003 قام بنشر أغسطس 24, 2003 يالله يا عم مين قدك ، وين الشرح . مشكور وما قصرت .
رضا عقيل قام بنشر أغسطس 24, 2003 الكاتب قام بنشر أغسطس 24, 2003 نزولاً على رغبة مشرفتنا العزيزة الأخت رحيل وتأييد باقي الأخوة سأقوم بشرح هذا التصميم البسيط وبناءاً على فكرته نستطيع عمل العديد من التصميمات الخفيفه ذات المظهر الجيد الملف مرفق به الشرح وهذا الماكرو يقوم بعمل اللازم خلا ثانيه واحده بعد فتح ملف جديد وكتابة كلمة أوفيسنا فقط والملف به الشرح الأكثر تفصيلاً 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
هلا قام بنشر أغسطس 28, 2003 قام بنشر أغسطس 28, 2003 ألف شكر لك أخينا رضا عقيل على مجهودك الرائع :yess: لكن عندي سؤال حول آخر مشاركة لك ... ارجو توضيح شغلة الماكرو أكثر بفكرة عامة و العمل الأخير الذي قمت به ... تحياتي :)
بو شروق قام بنشر سبتمبر 18, 2003 قام بنشر سبتمبر 18, 2003 أخي الفاضل سؤال لو سمحت ما هو البرنامج المفضل لفتح الملف المرفق ؟ لأنني تعبت في تجربة عدة برامج ولم يفتح الملف مع خالص الشكر
رضا عقيل قام بنشر سبتمبر 18, 2003 الكاتب قام بنشر سبتمبر 18, 2003 أخي الحبيب البرنامج مشهور جداً واسمه winrar مع خالص تحياتي
المهاجر قام بنشر سبتمبر 19, 2003 قام بنشر سبتمبر 19, 2003 ما شاء الله تبارك الله على هذا الإبداع.. يا ووردجي قديم :pp:
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.