أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية استخدام التنفيذ التلقائي لإنشاء عرض تقديمي لـ PowerPoint باستخدام Visual Basic .NET 2002 أو Visual Basic .NET 2003

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

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

اضغط هنا لرابط المقالة باللغة الانجليزية303717
للحصول على إصدار Microsoft Visual C# .NET من هذه المقالة، راجع 303718.
للحصول على إصدار Microsoft Visual C++ .NET من هذه المقالة، راجع 308336.
الموجز
توضح هذه المقالة كيفية استخدام التنفيذ التلقائي لإنشاء عرض تقديمي Microsoft PowerPoint باستخدام Microsoft Visual Basic .NET 2002 أو Visual Basic .NET 2003.
معلومات أخرى

إنشاء أحد عملاء التنفيذ التلقائي لـ Microsoft PowerPoint

  1. بدء تشغيل Microsoft Visual Studio .NET 2002 أو Visual Studio .NET 2003. من القائمة ملف، انقر فوق جديد ثم انقر فوق المشروع. حدد تطبيق Windows من أنواع مشاريع Visual Basic. يتم إنشاء Form1 بشكل افتراضي.
  2. إضافة مرجع إلى مكتبة كائنات Microsoft PowerPoint "و" مكتبة كائنات Microsoft Graph. للقيام بذلك، اتبع الخطوات التالية:
    1. من القائمة المشروع انقر فوق إضافة مرجع.
    2. ضمن علامة التبويب COM تحديد موقع مكتبة كائنات Microsoft PowerPoint ثم انقر فوق تحديد. حدد موقع أيضاً كائن Microsoft Graph مكتبة ، ثم انقر فوق تحديد.

      ملاحظة: Microsoft Office 2003 والإصدارات اللاحقة من Microsoft Office يتضمن "التجميعات Interop الأساسية" (PIAs). لا يتضمن Microsoft Office XP PIAs ولكن قد يتم تحميل.

      لمزيد من المعلومات حول Office XP PIAs انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
      328912تتوفر Microsoft Office XP PIAs للتنزيل
    3. انقر فوق موافق في إضافة مراجع مربع الحوار لقبول التحديدات.
  3. من القائمة عرض، حدد Toolbox عرض مربع الأدوات ثم تقوم بإضافة زر Form1.
  4. انقر نقراً مزدوجاً فوق Button1. يظهر إطار التعليمات البرمجية للنموذج.
  5. في الإطار "تعليمات برمجية" ، حدد موقع التعليمة البرمجية التالية
        Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click    End Sub					
    استبدال بـ التعليمة البرمجية التالية:
        Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click        Const sTemplate = _           "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Blends.pot"        Const sPic = "C:\WINNT\Soap Bubbles.bmp"        Dim oApp As PowerPoint.Application        Dim oPres As PowerPoint.Presentation        Dim oSlide As PowerPoint.Slide        Dim bAssistantOn As Boolean        'Start Powerpoint and make its window visible but minimized.        oApp = New PowerPoint.Application()        oApp.Visible = True        oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized        'Create a new presentation based on the specified template.        oPres = oApp.Presentations.Open(sTemplate, , , True)        'Build Slide #1:        'Add text to the slide, change the font and insert/position a         'picture on the first slide.        oSlide = oPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)        With oSlide.Shapes.Item(1).TextFrame.TextRange            .Text = "My Sample Presentation"            .Font.Name = "Comic Sans MS"            .Font.Size = 48        End With        oSlide.Shapes.AddPicture(sPic, False, True, 150, 150, 500, 350)        oSlide = Nothing        'Build Slide #2:        'Add text to the slide title, format the text. Also add a chart to the        'slide and change the chart type to a 3D pie chart.        oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)        With oSlide.Shapes.Item(1).TextFrame.TextRange            .Text = "My Chart"            .Font.Name = "Comic Sans MS"            .Font.Size = 48        End With        Dim oChart As Graph.Chart        oChart = oSlide.Shapes.AddOLEObject(150, 150, 480, 320, _                    "MSGraph.Chart.8").OLEFormat.Object        oChart.ChartType = Graph.XlChartType.xl3DPie        oChart = Nothing        oSlide = Nothing        'Build Slide #3:        'Add a text effect to the slide and apply shadows to the text effect.        oSlide = oPres.Slides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank)        oSlide.FollowMasterBackground = False        Dim oShape As PowerPoint.Shape        oShape = oSlide.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _            "The End", "Impact", 96, False, False, 230, 200)        oShape.Shadow.ForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground        oShape.Shadow.Visible = True        oShape.Shadow.OffsetX = 3        oShape.Shadow.OffsetY = 3        oShape = Nothing        oSlide = Nothing        'Modify the slide show transition settings for all 3 slides in        'the presentation.        Dim SlideIdx(3) As Integer        SlideIdx(0) = 1        SlideIdx(1) = 2        SlideIdx(2) = 3        With oPres.Slides.Range(SlideIdx).SlideShowTransition            .AdvanceOnTime = True            .AdvanceTime = 3            .EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut        End With        Dim oSettings As PowerPoint.SlideShowSettings        oSettings = oPres.SlideShowSettings        oSettings.StartingSlide = 1        oSettings.EndingSlide = 3        'Prevent Office Assistant from displaying alert messages.        bAssistantOn = oApp.Assistant.On        oApp.Assistant.On = False        'Run the slide show and wait for the slide show to end.        oSettings.Run()        Do While oApp.SlideShowWindows.Count >= 1            System.Windows.Forms.Application.DoEvents()        Loop        oSettings = Nothing        'Reenable Office Assisant, if it was on.        If bAssistantOn Then            oApp.Assistant.On = True            oApp.Assistant.Visible = False        End If        'Close the presentation without saving changes and quit PowerPoint.        oPres.Saved = True        oPres.Close()        oPres = Nothing        oApp.Quit()        oApp = Nothing        GC.Collect()    End Sub					
    ملاحظة في هذه التعليمة البرمجية ثوابت sTemplate و sPic تمثل اسم الملف والمسار الكامل إلى PowerPoint قالب و صورة ، على التوالي. قم بتعديل هذه المسارات الحاجة استخدام قالب أو صورة المثبتة على النظام الخاص بك.
  6. قم بإضافة التعليمات البرمجية التالية إلى أعلى Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.GraphImports PowerPoint = Microsoft.Office.Interop.PowerPoint					
  7. اضغط F5 لإنشاء البرنامج وتشغيله ثم.
  8. انقر فوق Button1 ضمن النموذج إنشاء وإظهار PowerPoint على العرض التقديمي.
مراجع
لمزيد من المعلومات، راجع التالي المطور Microsoft Network (MSDN) موقع ويب: لمزيد من المعلومات حول أتمتة PowerPoint انقر فوق أرقام المقالات التالية لعرضها في "قاعدة المعارف لـ Microsoft:
180616كيفية استخدام MFC لإنشاء عرض تقديمي PowerPoint
222929كيفية أتمتة PowerPoint باستخدام Visual Basic
ppt2007

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

خصائص

رقم الموضوع: 303717 - آخر مراجعة: 05/31/2007 03:39:24 - المراجعة: 9.2

Microsoft Office PowerPoint 2007, Microsoft Office PowerPoint 2003, Microsoft PowerPoint 2002 Standard Edition, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Visual Studio .NET 2002 Academic Edition, Microsoft Visual Studio .NET 2002 Enterprise Architect, Microsoft Visual Studio .NET 2002 Enterprise Developer, Microsoft Visual Studio .NET 2003 Academic Edition, Microsoft Visual Studio .NET 2003 Enterprise Architect, Microsoft Visual Studio .NET 2003 Enterprise Developer, Microsoft Visual Studio .NET 2003 Professional Edition

  • kbmt kbexpertiseinter kbautomation kbhowto KB303717 KbMtar
تعليقات