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

Τρόπος χειρισμού συμβάντων του PowerPoint με χρήση της Visual Basic.NET 2003

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

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

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

Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:824021
ΕΙΣΑΓΩΓΗ
Αυτό το άρθρο περιγράφει τον τρόπο χειρισμού συμβάντων του Microsoft Office PowerPoint από έναν υπολογιστή-πελάτη αυτοματισμού που ανέπτυξε η χρήση του Microsoft Visual Basic .NET 2003.

Δημιουργήστε ένα πρόγραμμα χειρισμού συμβάντων

Μπορείτε να χρησιμοποιήσετε μία από τις ακόλουθες μεθόδους για να κατασκευάσετε ένα πρόγραμμα χειρισμού συμβάντων με τη χρήση της Visual Basic .NET. Η μέθοδος που επιλέγετε εξαρτάται από τον τρόπο που θέλετε να συσχετίσετε το πρόγραμμα χειρισμού συμβάντων με ένα συμβάν.
  • Μέθοδος 1

    Συνήθως, δημιουργείτε ένα πρόγραμμα χειρισμού συμβάντων χρησιμοποιώντας τοΔείκτες χειρισμούη λέξη-κλειδί με τοWithEventsΛέξη-κλειδί. Όταν δηλώνετε μια μεταβλητή αντικειμένου αναφοράς με τη χρήση τουWithEventsλέξη-κλειδί της Visual Basic .NET συνδέεται αυτόματα με τα συμβάντα του αντικειμένου κατά το χρόνο εκτέλεσης. Για το χειρισμό ενός συγκεκριμένου συμβάντος για ένα αντικείμενο, προσθέστε το σχετικό πρόγραμμα χειρισμού χρησιμοποιώντας τοCLASSλίστα και τοΗ μέθοδοςλίστα με το περιβάλλον του Visual Studio .NET, ενώ βρίσκεστε σε κώδικα προβολή.
  • Μέθοδος 2

    Visual Basic .NET παρέχει έναν άλλο τρόπο για το χειρισμό συμβάντων. Μπορείτε να χρησιμοποιήσετε τοAddHandlerδήλωση και τοRemoveHandlerπρόταση ώστε να ξεκινήσει δυναμικά και δυναμικά διακοπή χειρισμού συμβάντων για ένα συγκεκριμένο συμβάν.

    ΣΗΜΕΙΩΣΗΕάν χρησιμοποιείτε τοWithEventsη λέξη-κλειδί για να κατασκευάσετε τα προγράμματα χειρισμού συμβάντων, ενδέχεται να λάβετε έναSystem.Reflection.TargetInvocationExceptionΕξαίρεση. Συνεπώς, χρησιμοποιήστε τοAddHandlerτο συμβάν για να κατασκευάσετε τα προγράμματα χειρισμού συμβάντων.

Δημιουργήστε το πρόγραμμα-πελάτη της Visual Basic .NET αυτοματισμού που χειρίζεται συμβάντα του PowerPoint

Τα ακόλουθα σύνολα βημάτων δείχνουν τον τρόπο χρήσης τουAddHandlerπρόταση για το χειρισμό του PowerPoint συμβάντα εφαρμογής από έναν υπολογιστή-πελάτη αυτοματισμού που ανέπτυξε η χρήση της Visual Basic .NET.

Για να δημιουργήσετε ένα έργο της Visual Basic .NET, ακολουθήστε τα εξής βήματα:
  1. Έναρξη Της Microsoft Visual Studio .NET 2003.
  2. Στο διακομιστήFILEμενού, κάντε κλικ στο κουμπίΝέα, και στη συνέχεια κάντε κλικ στο κουμπίΤο έργο.
  3. ΣτοΤύποι έργουλίστα, κάντε κλικ στο κουμπίΈργα της Visual Basic. ΣτοΠρότυπαλίστα, κάντε κλικ στο κουμπίΕφαρμογή των Windows.
  4. Ονομάστε το έργο PowerPointEvents και, στη συνέχεια, κάντε κλικ στο κουμπίOk.

    Από προεπιλογή, δημιουργείται μια φόρμα που ονομάζεται Φόρμα1.
Για να προσθέσετε αναφορές στη βιβλιοθήκη αντικειμένων του Microsoft PowerPoint και στη βιβλιοθήκη αντικειμένων του Microsoft Graph, ακολουθήστε τα εξής βήματα:
  1. Στο διακομιστήΤο έργομενού, κάντε κλικ στο κουμπίΠροσθήκη αναφοράς.
  2. Στο διακομιστήComκαρτέλα, κάντε κλικ σε μία από τις ακόλουθες ενέργειες και, στη συνέχεια, κάντε κλικ στο κουμπίΕπιλογή:
    • Για το Microsoft Office PowerPoint 2007, κάντε κλικ στο κουμπίΒιβλιοθήκη αντικειμένων του Microsoft PowerPoint 12.0.
    • Για το Microsoft Office PowerPoint 2003, κάντε κλικ στο κουμπίΒιβλιοθήκη αντικειμένων του Microsoft PowerPoint 11.0.
  3. Στο διακομιστήComκαρτέλα, κάντε κλικ σε μία από τις ακόλουθες ενέργειες και, στη συνέχεια, κάντε κλικ στο κουμπίΕπιλογή:
    • Για το Microsoft Graph 12.0, κάντε κλικ στο κουμπίΒιβλιοθήκη αντικειμένων του Microsoft Graph 12.0.
    • Για το Microsoft Graph 11.0, κάντε κλικ στο κουμπίΒιβλιοθήκη αντικειμένων του Microsoft Graph 11.0.
  4. ΣτοΠροσθήκη αναφορέςπαράθυρο διαλόγου, κάντε κλικ στο κουμπίOkΓια να αποδεχτείτε τις επιλογές σας.
  5. Κάντε διπλό κλικ στη φόρμα.

    Ανοίγει το παράθυρο Κωδ.
  6. Στο επάνω μέρος του αρχείου Form1.vb, προσθέστε τον ακόλουθο κώδικα:
    	Imports PowerPoint = Microsoft.Office.Interop.PowerPoint	Imports Office = Microsoft.Office.Core	Imports Graph = Microsoft.Office.Interop.Graph
  7. Στο διακομιστήViewμενού, κάντε κλικ στο κουμπίΣχεδιαστής.
  8. Στο διακομιστήViewμενού, κάντε κλικ στο κουμπίΕργαλειοθήκη, και στη συνέχεια να προσθέσετε ένα κουμπί Φόρμα1.
  9. Διπλό κλικButton1.

    Ανοίγει το παράθυρο κώδικα κατά τηνButton1_ClickΣυμβάν.
  10. Στο παράθυρο κώδικα, τοποθετήστε τον ακόλουθο κώδικα πριν από τηνButton1_ClickΣυμβάν:
    	Dim oApp As PowerPoint.Application	Dim oPres As PowerPoint.Presentation
  11. Προσθέστε τον ακόλουθο κώδικα για τοButton1_ClickΣυμβάν:
    	Const sTemplate = "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Orbit.pot"        ' If the previous template is not available, change the template name to a template name that is on your system.        Const sVideo = "C:\WINDOWS\system32\oobe\images\intro.wmv"        Dim oPresentations As PowerPoint.Presentations        Dim oSlides As PowerPoint.Slides        Dim oSlide As PowerPoint.Slide        Dim oShapes As PowerPoint.Shapes        Dim oShape As PowerPoint.Shape        Dim oMovie As PowerPoint.Shape        Dim oAnimationSettings As PowerPoint.AnimationSettings        Dim oPlaySettings As PowerPoint.PlaySettings        Dim oTextFrame As PowerPoint.TextFrame        Dim oTextRange As PowerPoint.TextRange        Dim oFont As PowerPoint.Font        Dim oOLEFormat As PowerPoint.OLEFormat        Dim oShadow As PowerPoint.ShadowFormat        Dim oForeColor As PowerPoint.ColorFormat        Dim oRange As PowerPoint.SlideRange        Dim oSlideShowTransition As PowerPoint.SlideShowTransition        'Start PowerPoint and then make the PowerPoint window visible but minimized.        oApp = New PowerPoint.Application        'Add event handlers.        AddHandler oApp.SlideShowBegin, AddressOf oApp_SlideShowBegin        AddHandler oApp.SlideShowNextSlide, AddressOf oApp_SlideShowNextSlide        AddHandler oApp.PresentationClose, AddressOf oApp_PresentationClose        oApp.Visible = True        oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized        'Create a new presentation that is based on the specified template.        oPresentations = oApp.Presentations        oPres = oPresentations.Open(sTemplate, , , True)        'Build slide 1.        'Add text to the slide, change the font, and then insert or position a         'movie on the first slide.        oSlides = oPres.Slides        oSlide = oSlides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)        oShapes = oSlide.Shapes        oShape = oShapes.Item(1)        oTextFrame = oShape.TextFrame        oTextRange = oTextFrame.TextRange        oTextRange.Text = "My sample presentation"        oFont = oTextRange.Font        oFont.Name = "Comic Sans MS"        oFont.Size = 48        oMovie = oShapes.AddMediaObject(sVideo, 150, 150, 500, 350)        oAnimationSettings = oMovie.AnimationSettings        oPlaySettings = oAnimationSettings.PlaySettings        oPlaySettings.PlayOnEntry = True        oPlaySettings.HideWhileNotPlaying = True        'NAR to release references.        NAR(oPlaySettings)        NAR(oAnimationSettings)        NAR(oMovie)        NAR(oFont)        NAR(oTextRange)        NAR(oTextFrame)        NAR(oShape)        NAR(oShapes)        NAR(oSlide)        NAR(oSlides)        'Build slide 2.        'Add text to the slide title and then format the text. Also, add a chart to the        'slide and then change the chart type to a 3D Column Clustered.        oSlides = oPres.Slides        oSlide = oSlides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)        oShapes = oSlide.Shapes        oShape = oShapes.Item(1)        oTextFrame = oShape.TextFrame        oTextRange = oTextFrame.TextRange        oTextRange.Text = "My chart"        oFont = oTextRange.Font        oFont.Name = "Comic Sans MS"        oFont.Size = 48        Dim oChart As Graph.Chart        oShape = oShapes.AddOLEObject(150, 150, 480, 320, "MSGraph.Chart.8")        oOLEFormat = oShape.OLEFormat        oChart = oOLEFormat.Object        oChart.ChartType = Graph.XlChartType.xl3DColumnClustered        'NAR to release references.        NAR(oChart)        NAR(oOLEFormat)        NAR(oFont)        NAR(oTextRange)        NAR(oTextFrame)        NAR(oShape)        NAR(oShapes)        NAR(oSlide)        NAR(oSlides)        'Build slide 3.        'Add a text effect to the slide and then apply shadows to the text effect.        oSlides = oPres.Slides        oSlide = oSlides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank)        oSlide.FollowMasterBackground = False        oShapes = oSlide.Shapes        oShape = oShapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _            "The End", "Impact", 96, False, False, 230, 200)        oShadow = oShape.Shadow        oForeColor = oShadow.ForeColor        oForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground        oShadow.Visible = True        oShadow.OffsetX = 3        oShadow.OffsetY = 3        'NAR to release references.        NAR(oShadow)        NAR(oForeColor)        NAR(oShape)        NAR(oShapes)        NAR(oSlide)        NAR(oSlides)        'Modify the slide show transition settings for all three slides in        'the presentation.        Dim SlideIdx(3) As Integer        SlideIdx(0) = 1        SlideIdx(1) = 2        SlideIdx(2) = 3        oSlides = oPres.Slides        oRange = oSlides.Range(SlideIdx)        oSlideShowTransition = oRange.SlideShowTransition        oSlideShowTransition.AdvanceOnTime = False        oSlideShowTransition.EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut        'Run the slide show in a separate method.        RunSlideShow()        'NAR to release references.        NAR(oSlideShowTransition)        NAR(oRange)        NAR(oSlides)        'Close the presentation without saving changes and then quit PowerPoint.        oPres.Saved = True        oPres.Close()        'NAR the presentation objects.        NAR(oPres)        NAR(oPresentations)        'Remove all event handlers.        RemoveHandler oApp.SlideShowBegin, AddressOf oApp_SlideShowBegin        RemoveHandler oApp.SlideShowNextSlide, AddressOf oApp_SlideShowNextSlide        RemoveHandler oApp.PresentationClose, AddressOf oApp_PresentationClose        'Quit PowerPoint.        oApp.Quit()        NAR(oApp)        GC.Collect()
  12. Μετάβαση του παρακάτω τον ακόλουθο κώδικα στο παράθυρο κώδικα, τοButton1_ClickΣυμβάν:
    	Private Sub RunSlideShow()            Dim oSettings As PowerPoint.SlideShowSettings	    Dim oSlideShowWindows As PowerPoint.SlideShowWindows	    oSettings = oPres.SlideShowSettings	    oSettings.StartingSlide = 1       	    oSettings.EndingSlide = 3            'Run the slide show. Wait for the slide show to finish.            oSettings.Run()            oSlideShowWindows = oApp.SlideShowWindows            On Error Resume Next            Do While oSlideShowWindows.Count >= 1	        System.Windows.Forms.Application.DoEvents()       	    Loop	    NAR(oSlideShowWindows)            NAR(oSettings)	End Sub    	'NAR function to remove reference.   	Private Sub NAR(ByVal o As Object)            Try	        System.Runtime.InteropServices.Marshal.ReleaseComObject(o)            Catch            Finally                o = Nothing            End Try    	End Sub
  13. Προσθέστε τα ακόλουθα στοιχεία χειρισμού συμβάντων κάτω από τον προηγούμενο κωδικό:
    	'Event Handlers    	Private Sub oApp_SlideShowBegin(ByVal Wn As Microsoft.Office.Interop.PowerPoint.SlideShowWindow)            'Change the position and the size of the slide show window.            Dim oView As PowerPoint.SlideShowView            With Wn                .Height = 325                .Width = 400                .Left = 100                .Activate()            End With           'Start the movie at the first slide.            oView = Wn.View            oView.Next()            NAR(oView)            NAR(Wn)    	End Sub    	Private Sub oApp_SlideShowNextSlide(ByVal Wn As Microsoft.Office.Interop.PowerPoint.SlideShowWindow)            'Change the color and the type of pointer depending on the slide.            Dim Showpos As Integer            Dim oView As PowerPoint.SlideShowView            Dim oColorFormat As PowerPoint.ColorFormat            oView = Wn.View            Showpos = oView.CurrentShowPosition + 1            If Showpos = 3 Then                oColorFormat = oView.PointerColor                oColorFormat.RGB = RGB(255, 0, 0)                oView.PointerType = PowerPoint.PpSlideShowPointerType.ppSlideShowPointerPen            Else                oColorFormat = oView.PointerColor                oColorFormat.RGB = RGB(0, 0, 0)                oView.PointerType = PowerPoint.PpSlideShowPointerType.ppSlideShowPointerArrow            End If            NAR(oColorFormat)            NAR(oView)            NAR(Wn)    	End Sub    	Private Sub oApp_PresentationClose(ByVal Pres As Microsoft.Office.Interop.PowerPoint.Presentation)            'Before you close the presentation, save the presentation as HTML.            Pres.SaveAs("C:\TestEvents.htm", PowerPoint.PpSaveAsFileType.ppSaveAsHTML)            NAR(Pres)    	End Sub

Δοκιμάστε το

  1. Πατήστε F5 για να εκτελέσετε την εφαρμογή.
  2. Κάντε κλικButton1.

    Το PowerPoint ξεκινά την προβολή παρουσίασης. Προσέξτε τα εξής:
    • Στην πρώτη διαφάνεια ξεκινά μια ταινία.
    • Ο δείκτης αλλάζει τον τύπο.
    • Οι αλλαγές χρώματος στη δεύτερη διαφάνεια που περιέχει ένα γράφημα.
  3. Κλείστε την παρουσίαση.
Αναφορές
Για περισσότερες πληροφορίες, κάντε κλικ στους αριθμούς των άρθρων παρακάτω για να προβάλετε τα άρθρα της Γνωσιακής Βάσης (Knowledge Base) της Microsoft:
308330Τρόπος χειρισμού συμβάντων του PowerPoint 2002 με τη χρήση της Visual Basic .NET 2002
254009Το PowerPoint 2000 συμβάν επίδειξης είναι διαθέσιμη για λήψη
303717Τρόπος χρήσης της αυτοματοποίησης για να δημιουργήσετε και να εμφανίσετε μια παρουσίαση του PowerPoint 2002 ή μια παρουσίαση του PowerPoint του Office 2003 με τη χρήση της Visual Basic .NET 2002 ή Visual Basic .NET 2003
823996PIA δεν εντοπίζεται όταν αναφέρεστε σε μια βιβλιοθήκη τύπων του Office στο Visual Studio .NET
PowerPoint vb net συμβάντος ενέργειας σημείο σύνδεσης PPT2007

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

Ιδιότητες

Αναγνωριστικό άρθρου: 824021 - Τελευταία αναθεώρηση: 10/06/2011 00:31:00 - Αναθεώρηση: 3.0

Microsoft Office PowerPoint 2007, Microsoft Office PowerPoint 2003, Microsoft Visual Basic .NET 2003 Standard Edition

  • kbexpertiseinter kbhowtomaster kbautomation kbmt KB824021 KbMtel
Σχόλια
/html>/html>omerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("