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

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 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. Στο διακομιστήFILEμενού, κάντε κλικ στο κουμπίΝέακαι, στη συνέχεια, κάντε κλικ στο κουμπίΤο έργο. ΕπιλογήΕφαρμογή των Windowsαπό τους τύπους έργα της Visual Basic. Φόρμα1 δημιουργείται από προεπιλογή.
  2. Προσθέστε μια αναφορά για τοΒιβλιοθήκη αντικειμένων του Microsoft PowerPointκαι τοΒιβλιοθήκη αντικειμένων του Microsoft Graph. Για να το κάνετε αυτό, ακολουθήστε τα εξής βήματα: (Use the tools in the Windows Recovery Environment to repair Windows Vista. To do this, follow these steps:):
    1. Στο διακομιστήΤο έργομενού, κάντε κλικ στο κουμπίΠροσθήκη αναφοράς.
    2. Στο διακομιστήComκαρτέλα, εντοπίστε τηΒιβλιοθήκη αντικειμένων του Microsoft PowerPoint, και στη συνέχεια κάντε κλικ στο κουμπίΕπιλογή. Επίσης να εντοπίσετε τοΤο Microsoft Graph Object Library, και στη συνέχεια κάντε κλικ στο κουμπίΕπιλογή.

      ΣΗΜΕΙΩΣΗ: Microsoft Office 2003 και οι νεότερες εκδόσεις του Microsoft Office περιλαμβάνει κύρια συγκροτήσεις διαλειτουργικότητα (στοιχεία PIA). Microsoft Office XP δεν περιλαμβάνει στοιχεία PIA, αλλά μπορεί να γίνει λήψη.

      Για περισσότερες πληροφορίες σχετικά με τα στοιχεία PIA του Office XP, κάντε κλικ στον αριθμό του άρθρου παρακάτω για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
      328912Στοιχεία PIA του Microsoft Office XP που είναι διαθέσιμες για λήψη
    3. Κάντε κλικOkΣτοΠροσθήκη αναφορέςπαράθυρο διαλόγου για να αποδεχθείτε τις επιλογές σας.
  3. Στο διακομιστήViewμενού επιλογήςΕργαλειοθήκηΓια να εμφανίσετε την εργαλειοθήκη και να προσθέσετε ένα κουμπί Φόρμα1.
  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
    					
    ΣΗΜΕΙΩΣΗΣε αυτόν τον κώδικα, τοsTemplateANDsPicσταθερές αντιπροσωπεύουν την πλήρη διαδρομή και το όνομα αρχείου στο PowerPoint ένα πρότυπο και μια εικόνα, αντίστοιχα. Μπορείτε να τροποποιήσετε αυτές τις διαδρομές όπως απαιτείται για να χρησιμοποιήσετε ένα πρότυπο ή μια εικόνα που είναι εγκατεστημένη στο σύστημά σας.
  6. Προσθέστε τον ακόλουθο κώδικα στην κορυφή της Form1.vb:
    Imports Office = Microsoft.Office.Core
    Imports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
    					
  7. Πατήστε F5 για να δημιουργήσετε και στη συνέχεια εκτελέστε το πρόγραμμα.
  8. Κάντε κλικButton1στη φόρμα για να δημιουργήσετε και στη συνέχεια εμφανίζει μια PowerPoint παρουσίαση.

Αναφορές

Για περισσότερες πληροφορίες, ανατρέξτε στο ακόλουθο Microsoft Developer Network (MSDN) τοποθεσία στο Web:
.aspx http://msdn2.Microsoft.com/en-us/library/aa167948 (office.11)
Για περισσότερες πληροφορίες σχετικά με την αυτοματοποίηση του PowerPoint, κάντε κλικ στο παρακάτω αριθμούς άρθρων για να προβάλετε τα άρθρα της Γνωσιακής Βάσης της Microsoft:
180616Τρόπος χρήσης της MFC για να δημιουργήσετε και να εμφανίσετε μια παρουσίαση του PowerPoint
222929Τρόπος αυτοματοποίησης του PowerPoint με χρήση της Visual Basic

Ιδιότητες

Αναγν. άρθρου: 303717 - Τελευταία αναθεώρηση: Πέμπτη, 6 Οκτωβρίου 2011 - Αναθεώρηση: 5.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • 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
Λέξεις-κλειδιά: 
kbexpertiseinter kbautomation kbhowto kbmt KB303717 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:303717

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com