Visual Basic .NET 2003'ü kullanarak PowerPoint olayları nasıl

Makale çevirileri Makale çevirileri
Makale numarası: 824021 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Giriş

Bu makalede, Microsoft Visual Basic .NET 2003 kullanılarak geliştirilen bir Otomasyon istemciden gelen Microsoft Office PowerPoint olayları işlemek açıklamaktadır.

Bir olay işleyicisi oluşturmak

Visual Basic. NET'i kullanarak bir olay işleyicisi oluşturmak için aşağıdaki yöntemlerden birini kullanabilirsiniz. Seçtiğiniz yöntem, nasıl olay işleyicisi, bir olay ile ilişkilendirmek istediğiniz, bağlıdır.
  • Yöntem 1

    Genellikle, bir olay işleyicisi WithEvents sözcüğüyle Handles anahtar sözcüğünü kullanarak oluşturun. WithEvents anahtar sözcüğünü kullanarak bir nesne başvurusu değişkenini bildirdiğinizde, Visual Basic .NET nesnesinin olaylara çalışma zamanında otomatik olarak bağlanır. Bir nesnenin belirli bir olay tanıtıcı, ilgili işleyiciye'sınıfı ' ni kullanarak eklemek için liste ve kod içinde iken Visual Studio .NET ortamında yöntemi listesini görüntüleyin.
  • Yöntem 2

    Visual Basic .NET, olayları işlemek için başka bir yol sağlar. Böylece, dinamik olarak başlatın ve dinamik olarak belirli bir olay için olay işlemeyi durdur AddHandler deyimi ve RemoveHandler ekstresi kullanabilirsiniz.

    Not Olay işleyicilerini oluşturmak için WithEvents anahtar sözcüğünü kullanırsanız, System.Reflection.TargetInvocationException bir özel durum bildirimi alabilir. Bu nedenle, AddHandler olay olay işleyicilerini oluşturmak için kullanın.

PowerPoint olayları işleyen bir Visual Basic .NET otomasyon istemci oluşturma

Aşağıdaki adımlar kümeleri AddHandler deyimi PowerPoint Visual Basic .NET kullanılarak geliştirilen bir Otomasyon istemciden uygulama olayları işlemek için nasıl kullanılacağını gösterir.

Bir Visual Basic .NET projesini oluşturmak için aşağıdaki adımları izleyin:
  1. Başlangıç Microsoft Visual Studio .NET 2003.
  2. Dosya menüsünden Yeni ' yi tıklatın ve sonra Project ' i tıklatın.
  3. Project Types listesinde Visual Basic Projeleri) tıklatın. Şablonlar listesinde Windows uygulama ' yı tıklatın.
  4. PowerPointEvents adını ve sonra Tamam ' ı tıklatın.

    Varsayılan olarak, Form1 adlı bir form oluşturulur.
Microsoft PowerPoint Nesne Kitaplığı'na ve Microsoft Graph Nesnesi Kitaplığı'na başvuruları eklemek için <a0></a0>, aşağıdaki adımları izleyin:
  1. Proje) menüsünde Add Reference ' ı tıklatın.
  2. COM sekmesinde, aşağıdakilerden birini tıklatın ve sonra da <a2>Seç</a2>'i tıklatın:
    • Microsoft Office PowerPoint 2007 için Microsoft PowerPoint 12.0 Nesne Kitaplığı ' ı tıklatın.
    • Microsoft Office PowerPoint 2003 için Microsoft PowerPoint 11.0 Nesne Kitaplığı ' ı tıklatın.
  3. COM sekmesinde, aşağıdakilerden birini tıklatın ve sonra da <a2>Seç</a2>'i tıklatın:
    • Microsoft Graph 12.0 için Microsoft Graph 12.0 Nesne Kitaplığı ' ı tıklatın.
    • Microsoft Graph 11.0 için Microsoft Graph 11.0 Nesne Kitaplığı ' ı tıklatın.
  4. Başvuru Ekle iletişim kutusuna seçimlerinizi kabul etmek için Tamam ' ı tıklatın.
  5. Formu çift tıklatın.

    Kod penceresi açılır.
  6. Form1.vb dosyasının en üstünde aşağıdaki kodu ekleyin:
    	Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
    	Imports Office = Microsoft.Office.Core
    	Imports Graph = Microsoft.Office.Interop.Graph
    
  7. Görünüm menüsünde Designer ' ı tıklatın.
  8. Görünüm) menüsünde, araç kutusu ' nu tıklatın ve sonra da Form1'e bir düğme ekleyin.
  9. Button1</a1> çift tıklatın.

    Kod penceresi, altında <a2>Button1_Click</a2> olay açar.
  10. Kod penceresinde Button1_Click</a0> olayından önce aşağıdaki kodu koy:
    	Dim oApp As PowerPoint.Application
    	Dim oPres As PowerPoint.Presentation
    
  11. Için <a2>Button1_Click</a2> olay aşağıdaki kodu ekleyin:
    	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. Kod penceresinde a?a??daki Button1_Click</a1> olay kodu koy:
    	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. Aşağıdaki olay işleyicilerini önceki kod altına ekleyin:
    	'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
    

Deneyin

  1. Uygulamayı çalıştırmak için F5 tuşuna basın.
  2. Button1</a1> düğmesini tıklatın.

    PowerPoint Slayt gösterisini başlatır. Aşağıdaki dikkat edin:
    • Ilk slayda film başlatılır.
    • Işaretçi türü değişir.
    • Bir grafik içeren ikinci slaydı rengi değişir.
  3. Sunuyu kapatın.

Referanslar

Daha fazla bilgi için, Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
308330Visual Basic .NET 2002'yi kullanarak PowerPoint 2002 olayları nasıl
254009PowerPoint 2000 olay gösteri yükleyebilirsiniz
303717Otomasyon oluşturmak ve Visual Basic .NET 2002 veya Visual Basic .NET 2003 kullanarak, sunuyu PowerPoint 2002'yi veya bir Office PowerPoint 2003 sunusu göstermek için nasıl kullanılır
823996Visual Studio. NET'te bir Office tür kitaplığına başvuru yaptığınızda PIA bulunamadı

Özellikler

Makale numarası: 824021 - Last Review: 24 Mayıs 2007 Perşembe - Gözden geçirme: 2.1
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office PowerPoint 2007
  • Microsoft Office PowerPoint 2003
  • Microsoft Visual Basic .NET 2003 Standard Edition
Anahtar Kelimeler: 
kbmt kbexpertiseinter kbhowtomaster kbautomation KB824021 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:824021

Geri Bildirim Ver

 

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