Τρόπος χρήσης της αυτοματοποίησης για να δημιουργήσετε και να εμφανίσετε μια παρουσίαση του PowerPoint με χρήση της Visual Basic .NET 2002 ή Visual Basic .NET 2003

Για την 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 περιλαμβάνει κύρια διαλειτουργικότητα (PIA). Microsoft Office XP δεν περιλαμβάνει στοιχεία PIA, αλλά ενδέχεται να ληφθούν.

      Για περισσότερες πληροφορίες σχετικά με τα στοιχεία PIA του Office XP, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
      328912 στοιχεία PIA των Microsoft Office XP είναι διαθέσιμο για λήψη

    3. Κάντε κλικ στο κουμπί OK στο πλαίσιο διαλόγου " Προσθήκη αναφορών " για να αποδεχτείτε τις επιλογές σας.
  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 και sPic αποτελούν την πλήρη διαδρομή και το όνομα αρχείου για ένα πρότυπο του PowerPoint και μιας εικόνας, αντίστοιχα. Μπορείτε να τροποποιήσετε αυτές τις διαδρομές όπως απαιτείται για να χρησιμοποιήσετε ένα πρότυπο ή μια εικόνα που είναι εγκατεστημένη στο σύστημά σας.
  6. Προσθέστε τον ακόλουθο κώδικα στην κορυφή της Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint

  7. Πιέστε το πλήκτρο F5 για να δημιουργήσετε και, στη συνέχεια, εκτελέστε το πρόγραμμα.
  8. Στη φόρμα για να δημιουργήσετε και, στη συνέχεια, να προβάλετε μια παρουσίαση του PowerPoint, κάντε κλικ στο κουμπί Button1 .

Αναφορές

Για περισσότερες πληροφορίες, ανατρέξτε στην ακόλουθη τοποθεσία της Microsoft Developer Network (MSDN) στο Web:Για περισσότερες πληροφορίες σχετικά με την αυτοματοποίηση του PowerPoint, κάντε κλικ στους αριθμούς των άρθρων παρακάτω, για να προβάλετε τα άρθρα της Γνωσιακής Βάσης της Microsoft:
180616 ΔΙΑΔΙΚΑΣΙΕΣ: χρήση MFC για να δημιουργήσετε και να προβάλετε μια παρουσίαση του PowerPoint

222929 Τρόπος αυτοματοποίησης του PowerPoint με χρήση της Visual Basic

Ιδιότητες

Αναγνωριστικό άρθρου: 303717 - Τελευταία αναθεώρηση: 10 Ιαν 2017 - Αναθεώρηση: 1

Σχόλια