PPT2000: نموذج لتعليمة برمجية لإنشاء العروض النسخ الاحتياطي

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

222688
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
توفر هذه المقالة جهازي نموذج Microsoft Visual Basic لوحدات الماكرو للتطبيقات (الإجراءات الفرعية) إنشاء نسخة احتياطية من العرض التقديمي الحالي في Microsoft PowerPoint. يستخدم نموذج الماكرو الأول اسم ملف عشوائية لإنشاء نسخة احتياطية. نموذج الماكرو الثاني يطالب المستخدم اسم ملف. حفظ كلا نماذج الملف ذو ملحق .bak في مجلد البرنامج.
معلومات أخرى
تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية. هذا يتضمن ولكن لم يقتصر على الضمانات الضمنية الخاصة بالتجارة أو الملاءمة لغرض معين. تفترض هذه المقالة تكون مألوفة مع لغة البرمجة التي يتم شرحها مع الأدوات التي يتم استخدامها لإنشاء لتصحيح الإجراءات. يمكن لمهندسي الدعم لدى Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة. ملاحظة: الأمثلة الماكرو التالية تعمل فقط في PowerPoint. Visual Basic for Applications وحدات الماكرو غير معتمدة من قبل Microsoft PowerPoint Viewer. للحصول على معلومات إضافية، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:

نموذج 1: حفظ النسخ الاحتياطي مع اسم الملف عشوائية

   Sub Backup()      Dim lngNumber As Long      Dim strString As String      Dim strFile As String      Dim strFileName As String      Dim strPath As String      ' Generates random number.      lngNumber = Int(Rnd * 100000)      ' Converts number to a string.      strString = Str(lngNumber)      ' Removes blank space from first of number.      strFile = Mid(strString, 2, 5)      ' Adds first two letters and extension to file name.      strFileName = "Bk" & strFile & ".bak"      ' Determines path where PowerPoint is stored.      strPath = Application.Path      ' Saves file with random name and .bak extension.      ActivePresentation.SaveAs FileName:=strPath & "\" & strFileName   End Sub				

نموذج 2: المستخدم مطالبات للحصول على اسم ملف النسخ الاحتياطي

   Sub Backup()      Dim strFile As String      Dim strFileName As String      Dim strPath As String      ' Prompts for file name.      strFile = InputBox("Please enter a file name." & chr(13) _                         & "Spaces may not work correctly.")      ' Adds extension to file name.      strFileName = strFile & ".bak"      ' Determines path where PowerPoint is stored.      strPath = Application.Path      ' Saves file with the name you input and .bak extension.      ActivePresentation.SaveAs FileName:=strPath & "\" & strFileName   End Sub				
مراجع
للحصول على مزيد من المعلومات حول كيفية استخدام نموذج التعليمة البرمجية في هذه المقالة، انقر فوق رقم المقالة أدناه لعرضها في "قاعدة المعارف لـ Microsoft:
212536OFF2000: كيفية تشغيل نموذج لتعليمة برمجية من مقالات قاعدة المعارف
9.00 ppt9 vba vbe ppt2k powerpt vba2k ppt9.0 ppt2000 البرنامج البرمجة

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 222688 - آخر مراجعة: 01/11/2015 18:30:23 - المراجعة: 2.2

  • Microsoft PowerPoint 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbcode kbdtacode kbhowto kbprogramming KB222688 KbMtar
تعليقات