كيفية تصدير كلمات المرور من Microsoft Edge
تعلم كيفية تصدير كلمات المرور من Microsoft Edge بسهولة وأمان باستخدام خطوات واضحة. قم بتأمين معلوماتك الشخصية بشكل أفضل.
قبل يومين ، سأل أحد القراء عن وجود طريقة لأتمتة إنشاء عروض PowerPoint التقديمية من البداية ثم إضافة الشرائح بسرعة إلى هذا العرض التقديمي الحالي. أعتقد أن هذا البرنامج النصي قد يكون بدرجة عالية في قائمة وحدات ماكرو PowerPoint الأكثر فائدة.
كما أشرنا في الماضي ، لا يتضمن PowerPoint مسجلاً ماكرو (بخلاف Excel و Word ، وكلاهما يحتوي على مسجلات لماكرو). لذلك ، يتبقى لنا Visual Basic القديم الجيد للتطبيق الذي يمكننا استخدامه لإنشاء وحدات ماكرو بسيطة لأتمتة PowerPoint. هناك بدائل أخرى لـ PowerPoint Automation ، لكن تلك البدائل تتجاوز نطاق هذا البرنامج التعليمي.
في البرنامج التعليمي القصير اليوم ، سنتناول ثلاث حالات استخدام مختلفة:
هيا بنا نبدأ.
انظر إلى الشريط. إذا كنت لا ترى إدخال المطور في القائمة ، فقبل بدء الترميز ، ستحتاج إلى تمكين علامة تبويب المطور.
بعد أن تجعل قائمة Developer مرئية لشريطك ، انطلق واضغط على Developer ، ثم اضغط على زر Visual Basic (أو ببساطة تابع واضغط على Alt + F11) لفتح Visual Basic IDE.
فبا لإنشاء عرض تقديمي بوربوينت
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
فبا لإدراج الشرائح
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
ماكرو لإعداد عرض تقديمي جديد وإضافة شرائح
سيكون ذلك مجرد خلط بين المقتطفين المذكورين أعلاه.
Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub
بعد ذلك ، يمكنك إلقاء نظرة على برنامجنا التعليمي حول إنشاء الأشكال بشكل برمجي في PowerPoint باستخدام VBA
قم بإنشاء عرض PowerPoint تقديمي من Excel
الحالة الأخيرة هي أنك ترغب في إنشاء عرض PowerPoint تقديمي مباشرةً من جدول بيانات Excel. يمكنك استخدام نفس الأسلوب من Word وتطبيقات Microsoft 365 الأخرى.
Sub CreatePresentationFromExcel()
Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")
Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close
MyPPt.Quit
MsgBox ("Presentation saved")
End Sub
استمتع 🙂
تعلم كيفية تصدير كلمات المرور من Microsoft Edge بسهولة وأمان باستخدام خطوات واضحة. قم بتأمين معلوماتك الشخصية بشكل أفضل.
تعلم كيفية استخدام انتقالات الشرائح في PowerPoint لجعل عرضك التقديمي مميزًا وتفاعليًا.
تعرف على كيفية استكشاف خطأ تعذر العثور على عنوان IP للخادم وإصلاحه ، وكذلك احصل على حل سهل لإصلاح هذه المشكلة.
هل تتلقى رسالة الخطأ Err_Cache_Miss أثناء استخدامك Google Chrome؟ إليك بعض الإصلاحات السهلة التي يمكنك تجربتها لإصلاح المشكلة بكفاءة.
اكتشف أفضل 10 مواقع ألعاب غير محظورة في المدارس 2024، حيث يمكنك اللعب مجاناً دون قيود.
تتعلم كيفية إصلاح خطأ ERR_CONNECTION_RESET على أنظمة التشغيل Windows 10 و Mac و Android. اتبع الحلول الفعالة الموصى بها لحل المشكلة بنجاح.
إذا أغلقت علامة تبويب لم تكن تقصد إغلاقها في متصفحك، فمن السهل إعادة فتح علامة التبويب هذه. يمكنك أيضًا فتح علامات تبويب أخرى مغلقة مؤخرًا.
لإصلاح خطأ فشل أجهزة NMI في النظام، استكشف حلولاً متنوعة مثل إجراء فحص SFC، والتحقق من الأجهزة والبرامج، وتحديث برامج التشغيل والمزيد.
إذا كنت تمتلك Samsung Galaxy A12 وواجهت مشكلات، إليك قائمة بالحلول للمشاكل الشائعة.
تعلم كيفية ترقية Windows 11 Home إلى Pro بطريقة سهلة وسريعة. احصل على الميزات المتقدمة من Windows 11 Pro الآن!