كيفية تصميم عرض البوربوينت الترند خطوة بخطوة - فكرتين بفيديو واحد
ฝัง
- เผยแพร่เมื่อ 21 ก.ค. 2024
- هل تريد معرفة سر تصميم عروض البوربوينت الاحترافية المنتشرة على مواقع التواصل الاجتماعي؟
اذا لا تذهب فى اى مكان لانك سوف تعرف اسرار تصميم افضل عروض البوربوينت خطوة بخطوة لعمل عرض بوربوينت مميز لمشروعك القادم.
يحتوى هذا الفيديو على فكرتين مختلفتين اعتمادا على خاصية التحويل التدريجي للأشكال و مهارات متقدمة فى بوربوينت و بذلك يمكنك ان تبهر اصدقائك بشرح تفصيلى لعرض البوربوينت التريند
أنضم الان الى ميزة الانتساب لقناة اليوتيوب و أحصل على هذا القالب مجانا 😊❤️
/ @a_torky
للحصول على ايقونات متحركة من خلال هذا الموقع
www.lordicon.com
للحصول على نماذج ثلاثية الابعاد من خلال هذا الموقع
www.sketchfab.com
ماذا تنتظر اذا !!
اشترك الان فى القناة العربية الاولى لتصميم احدث عروض الياوربوينت و شارك هذا الفيديو مع اصدقائك و كن متميزا بمشاركاتك دائما
الخريطة الزمنية للفيديو
00:00 فكرة العرض التقديمي
01:23 خطوات تصميم الفكرة الاولى
05:53 خطوات تصميم الفكرة الثانية
10:46 الشكل النهائي للتصميم
#بوربوينت #powerpoint
بسم الله ما شاء الله🎉🎉🎉🎉
😍💐
شكرااا❤
الشكر لله 😊💖
❤رائع جدا
شكرا لتعليقك 😊💐
متى حتشرح لنا السحب والافلات محتاجه لهذه الخاصية ضروري لو سمحت
اهلا و سهلا بحضرتك
انا هكتب لحضرتك هنا فى التعليقات خطوات تفعيل خاصية السحب و الافلات
اتفضل الخطوات
لإضافة ميزة سحب وإفلات (Drag and Drop) في PowerPoint باستخدام الماكرو، يمكنك اتباع الخطوات التالية:
1. افتح PowerPoint وانقر فوق "مطور" في شريط الأدوات. إذا لم يكن شريط الأدوات مرئيًا، فيمكنك تمكينه من قائمة "ملف" ثم "خيارات" ثم "شريط الأدوات" وتحديد "مطور".
2. بعد فتح شريط الأدوات "مطور"، انقر فوق "استوديو Visual Basic" لفتح محرر Visual Basic لتطبيقات (VBA).
3. في محرر VBA، انقر فوق "إدراج" ثم "وحدة" لإنشاء وحدة جديدة.
4. في نافذة المحرر، قم بكتابة الكود التالي:
```vba
Option Explicit
Private Sub Slide_GotDragOver(ByVal Index As Long, ByVal X As Long, ByVal Y As Long, ByVal DragState As Office.MsoDragState, ByVal Effect As Office.MsoTriState)
Effect = Office.MsoTriState.msoCTrue
End Sub
Private Sub Slide_DragDrop(ByVal Index As Long, ByVal X As Long, ByVal Y As Long)
Dim objShape As Shape
Set objShape = ActivePresentation.Slides(Index).Shapes.AddShape(Type:=msoShapeRectangle, Left:=X, Top:=Y, Width:=100, Height:=50)
objShape.TextFrame.TextRange.Text = "سحب وإفلات"
End Sub
```
5. بعد كتابة الكود، احفظ الملف باسم "Module1" أو أي اسم تفضله مع الامتداد ".bas".
6. الآن، قم بإغلاق محرر VBA وعود إلى PowerPoint.
7. حدد الشريحة التي ترغب في تمكين ميزة السحب والإفلات عليها.
8. في شريط الأدوات "مطور"، انقر فوق "استوديو Visual Basic" مرة أخرى لفتح المحرر.
9. في المحرر، انقر مرتين على اسم الشريحة المحددة في القائمة اليسرى.
10. في النافذة الكبيرة على اليمين، قم بكتابة الكود التالي:
```vba
Option Explicit
Private Sub SlideShowWindow_Activate()
SlideShowWindows(1).View.Slide.Shapes.SelectAll
SlideShowWindows(1).View.Slide.Shapes.LockAspectRatio = msoFalse
SlideShowWindows(1).View.Slide.Shapes.LockAspectRatio = msoTrue
End Sub
```
11. بعد كتابة الكود، احفظ الملف وأغلق المحرر.
12. الآن، عند تشغيل العرض التقديمي، يمكنك سحب العناصر وإفلاتها على الشريحة المحددة لإنشاء شكل مستطيل جديد بها.
هذه هي الخطوات لإضافة ميزة سحب وإفلات في PowerPoint باستخدام الماكرو. يمكنك تخصيص الأحجام والشكل والألوان والأوامر الأخرى في الكود وفقًا لاحتياجاتك.
@@A_Torky لا اعرف كيف اشكرك جزاك الله كل خير
اسلام عليكم لو تكرمت أخوي احمد عايز عمل تصميم رهيب واحترافي عن فلسطين والمسجد الاقصى... ومايهمك التكلفه الى تامور فيه .
كيفيه التواصل مع حضرتك ؟
مرحبا بك
طبعا يسعدنى مساعدتك
من فضلك تواصل معى عبر التليجرام
t.me/Dr_Ahmed_Torky31
ممكن رابط جروب التليجرام
اتفضل رابط جروب التليجرام للقوالب المجانية
t.me/Powerpoint2022
سويت مثل شرحك بس المستطيل مايتحرك معي ليش
هل خاصية التحويل التدريجي متاحة عندك فى برنامج البوربوينت؟
يا اصدار بوربوينت يتقبل هيج
اصدار بوربوينت 2019 او أعلى
@@A_Torky شلون اعرف يا لابتوب. يتقبل هذا الاصدار
ممكن رابط القالب مجانا بمناسبة العام الجديد
مرحبا بك و شكرا جزيلا على اهتمامك
ان شاء الله هيكون متاح قوالب مجانية عديدة قريبا
و يمكنك الانضمام لجروب التليجرام الذي يحتوى على عشرات القوالب المجانية
@@A_Torky
رابط كروب تلكرام