Αυτήν τη στιγμή είστε εκτός σύνδεσης, σε αναμονή για επανασύνδεση στο Internet

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

Η υποστήριξη για το Office 2003 έχει διακοπεί

Η Microsoft διέκοψε την υποστήριξη για το Office 2003 στις 8 Απριλίου 2014. Αυτή η αλλαγή επηρέασε τις ενημερώσεις λογισμικού και τις επιλογές ασφαλείας σας. Μάθετε τι σημαίνει αυτό για εσάς και το πώς θα προστατευτείτε.

ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.

Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη: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.CoreImports Graph = Microsoft.Office.Interop.GraphImports PowerPoint = Microsoft.Office.Interop.PowerPoint					
  7. Πατήστε F5 για να δημιουργήσετε και στη συνέχεια εκτελέστε το πρόγραμμα.
  8. Κάντε κλικButton1στη φόρμα για να δημιουργήσετε και στη συνέχεια εμφανίζει μια PowerPoint παρουσίαση.
Αναφορές
Για περισσότερες πληροφορίες, ανατρέξτε στο ακόλουθο Microsoft Developer Network (MSDN) τοποθεσία στο Web:Για περισσότερες πληροφορίες σχετικά με την αυτοματοποίηση του PowerPoint, κάντε κλικ στο παρακάτω αριθμούς άρθρων για να προβάλετε τα άρθρα της Γνωσιακής Βάσης της Microsoft:
180616Τρόπος χρήσης της MFC για να δημιουργήσετε και να εμφανίσετε μια παρουσίαση του PowerPoint
222929Τρόπος αυτοματοποίησης του PowerPoint με χρήση της Visual Basic
PPT2007

Προειδοποίηση: Αυτό το άρθρο έχει μεταφραστεί αυτόματα

Ιδιότητες

Αναγνωριστικό άρθρου: 303717 - Τελευταία αναθεώρηση: 10/06/2011 02:24:00 - Αναθεώρηση: 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
Σχόλια
var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write(" epeat: language in languagesListForLargeScreens track by $index -->
Uruguay - Español
대한민국 - 한국어
España - Español
Paraguay - Español
Venezuela - Español
c1.microsoft.com/c.gif?DI=4050&did=1&t=">Script" async=""> var varAutoFirePV = 1; var varClickTracking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write(" splay: none; " src="https://c1.microsoft.com/c.gif?DI=4050&did=1&t=">t type="text/javascript" src="https://c.microsoft.com/ms.js"> &t=">