اهلا و سهلا بحضرتك انا هكتب لحضرتك هنا فى التعليقات خطوات تفعيل خاصية السحب و الافلات اتفضل الخطوات لإضافة ميزة سحب وإفلات (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 باستخدام الماكرو. يمكنك تخصيص الأحجام والشكل والألوان والأوامر الأخرى في الكود وفقًا لاحتياجاتك.
مرحبا بك و شكرا جزيلا على اهتمامك ان شاء الله هيكون متاح قوالب مجانية عديدة قريبا و يمكنك الانضمام لجروب التليجرام الذي يحتوى على عشرات القوالب المجانية
بسم الله ما شاء الله🎉🎉🎉🎉
😍💐
متى حتشرح لنا السحب والافلات محتاجه لهذه الخاصية ضروري لو سمحت
اهلا و سهلا بحضرتك
انا هكتب لحضرتك هنا فى التعليقات خطوات تفعيل خاصية السحب و الافلات
اتفضل الخطوات
لإضافة ميزة سحب وإفلات (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
سويت مثل شرحك بس المستطيل مايتحرك معي ليش
هل خاصية التحويل التدريجي متاحة عندك فى برنامج البوربوينت؟
ممكن رابط القالب مجانا بمناسبة العام الجديد
مرحبا بك و شكرا جزيلا على اهتمامك
ان شاء الله هيكون متاح قوالب مجانية عديدة قريبا
و يمكنك الانضمام لجروب التليجرام الذي يحتوى على عشرات القوالب المجانية
@@A_Torky
رابط كروب تلكرام
يا اصدار بوربوينت يتقبل هيج
اصدار بوربوينت 2019 او أعلى
@@A_Torky شلون اعرف يا لابتوب. يتقبل هذا الاصدار