كيف تعمل مع مربعات الرسائل والإدخال في PowerPoint VBA؟

من خلال استعراض التعليقات ، رأيت بضعة أسئلة للقارئ حول كيفية العمل مع مربعات الإدخال والرسائل Visual Basic في PowerPoint.

سنوفر في هذا البرنامج التعليمي معرفة أساسية أساسية للغاية لمساعدتك في استخدام هذه القدرات عند أتمتة إنشاء عرضك التقديمي.

إعداد علامة تبويب المطور

أولاً ، سنحتاج إلى تمكين بيئة المطور لبرنامج PowerPoint. اتبع هذا البرنامج التعليمي لإعداد علامة تبويب التطوير الخاصة بك.

في PowerPoint ، انتقل إلى قائمة Developer ، واضغط على Visual Basic.

في شجرة المشروع ، انقر بزر الماوس الأيمن على العرض التقديمي ، واضغط على إدراج ، ثم اختر الوحدة النمطية. سيتم إنشاء وحدة VBA جديدة ، وهذا هو المكان الذي ستكتب فيه التعليمات البرمجية الخاصة بك.

مربعات الرسائل في PowerPoint

مربعات الرسائل هي نوع من الشرح الذاتي ، وهدفها هو عرض بعض المعلومات المفيدة للمستخدم النهائي. اكتب الكود التالي في الوحدة الخاصة بك:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

اضغط على F5 أو Run وشاهد النتيجة:

مثال على الرسالة ومربع الإدخال

بخلاف مربعات الرسائل ، يتم استخدام مربعات الإدخال للحصول على تعليقات من المستخدم. لنلق نظرة على المثال أدناه. يقوم البرنامج النصي تلقائيًا بإدراج شرائح جديدة في العرض التقديمي.

إليك ما سننفذه:

1. سنقوم أولاً بمطالبة المستخدم بعدد الشرائح المراد إضافتها (باستخدام مربع الإدخال).
2. سنقوم بعد ذلك بإخطار المستخدم بعدد الشرائح التي سيتم إنشاؤها (باستخدام صندوق الرسائل)
3. أخيرًا ، سيتم المضي قدمًا وإنشاء الشرائح برمجيًا.
4. في الأخير سنقوم بحفظ العرض التقديمي المعدل

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

نأمل أن يكون هذا قد ساعد ، فلا تتردد في ترك التعليقات حسب الحاجة.