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

للحصول على إصدار Microsoft Visual C#.NET من هذه المقالة، راجع
303718 .
للحصول على إصدار Microsoft Visual c + +.NET من هذه المقالة، راجع
308336 .

ملخص

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

مزيد من المعلومات

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

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

      ملاحظة: يتضمن "تجميعات التوافق الأساسية" (pias) الخاصة Microsoft Office 2003 والإصدارات الأحدث من Microsoft Office. Microsoft Office XP لا يتضمن التقييمات الأولية للتنفيذ، ولكن قد يتم تحميل.

      لمزيد من المعلومات حول Office XP PIAs، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":
      328912 Microsoft Office XP PIAs متوفرة للتنزيل

    3. انقر فوق "موافق" في مربع الحوار إضافة مراجع لقبول التحديدات.
  3. من القائمة عرض ، حدد
    مربع الأدوات إلى عرض مربع الأدوات ثم إضافة زر إلى 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 و سبيك تمثل المسار الكامل واسم الملف لقالب PowerPoint وصورة، على التوالي. تعديل هذه المسارات حسب الحاجة باستخدام قالب أو صورة تم تثبيتها على النظام.
  6. أضف التعليمات البرمجية التالية إلى أعلى Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint

  7. اضغط F5 لإنشاء وتشغيل البرنامج.
  8. انقر فوق Button1 في النموذج لإنشاء وعرض تقديمي ل PowerPoint ثم.

المراجع

لمزيد من المعلومات، راجع موقع شبكة مطوري Microsoft (MSDN) التالي على الويب:لمزيد من المعلومات حول أتمتة PowerPoint، انقر فوق أرقام المقالات التالية لعرضها في "قاعدة المعارف ل Microsoft":
كيفية استخدام MFC لإنشاء وعرض تقديمي ل PowerPoint 180616

222929 كيفية أتمتة PowerPoint باستخدام Visual Basic

خصائص

رقم الموضوع: 303717 - آخر مراجعة: 18‏/01‏/2017 - المراجعة: 2

تعليقات