Şu anda çevrimdışısınız; İnternet'in yeniden bağlanması bekleniyor

Tarayıcınız desteklenmiyor

Siteyi kullanmak için tarayıcınızı güncelleştirmeniz gerekir.

Internet Explorer'ın en son sürümüne güncelleştirin

Otomasyon oluşturmak ve Visual Basic .NET 2002 veya Visual Basic .NET 2003 kullanarak PowerPoint sunusunu görüntülemek için nasıl kullanılır

Office 2003 desteği sona erdi

Microsoft, Office 2003 desteğini 8 Nisan 2014'te sona erdirdi. Bu değişiklik yazılım güncelleştirmelerinizi ve güvenlik seçeneklerinizi etkiledi. Bunun sizin için ne anlama geldiğini ve korunmaya nasıl devam edebileceğinizi öğrenin.

Ö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:303717
Bu makalenin Microsoft Visual C# .NET sürümü için bkz: 303718.
Bu makalenin Microsoft Visual C++ .NET sürümü için bkz: 308336.
Özet
Bu makalede, otomasyon oluşturmak ve Microsoft Visual Basic .NET 2002 veya Visual Basic .NET 2003 kullanarak, Microsoft PowerPoint sunusuna göstermek için nasıl kullanılacağı açıklanır.
Daha fazla bilgi

Microsoft PowerPoint'in bir Otomasyon istemcisi oluştur

  1. Microsoft Visual Studio .NET 2002 veya Visual Studio .NET 2003 başlatın. Dosya menüsünde Yeni'yi tıklatın ve Project ' ı tıklatın. Visual Basic Projects türlerinden Windows Application ' ı seçin. Varsayılan olarak, Form1 oluşturulur.
  2. Microsoft PowerPoint nesne kitaplığı ve Microsoft Graph nesne kitaplığına bir başvuru ekleyin. Bunu yapmak için şu adımları izleyin:
    1. Proje menüsünde Add Reference.
    2. COM sekmesinde, Microsoft PowerPoint nesne kitaplığı ' nı bulun ve sonra da <a2>Seç</a2>'i tıklatın. Ayrıca bulun Microsoft Graph nesnesi kitaplığı ve sonra da <a2>Seç</a2>'i tıklatın.

      Not: Microsoft Office 2003 ve Microsoft Office'in sonraki sürümlerini içeren Primary ınterop Assemblies (Pıa). Microsoft Office XP Pıa içermez, ancak bunlar karşıdan yüklenmesi.

      Office XP Pıa hakkında'daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
      328912Microsoft Office XP Pıa, karşıdan yüklenebilir
    3. Tamam ' ı Ekle References seçimlerinizi kabul etmek için iletişim kutusu.
  3. Görünüm menüsünden araç görüntüleyin ve Form1'e bir düğme eklemek için araç kutusu seçin.
  4. Button1</a1> çift tıklatın. Formun kod penceresi görüntülenir.
  5. Kod penceresinde
        Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click    End Sub					
    aşağıdaki kodla değiştir:
        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					
    Not bu kod, sTemplate ve sPic sabitler tam yolunu ve dosya için bir PowerPoint temsil şablonu ve bir resim sırasıyla. Bu yollar, şablon veya sisteminizde yüklü olan bir resmi kullanmak için gerektiği şekilde değiştirin.
  6. Aşağıdaki kodu Form1.vb en üstüne ekleyin:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.GraphImports PowerPoint = Microsoft.Office.Interop.PowerPoint					
  7. Programı derlemek ve çalıştırmak için F5 tuşuna basın.
  8. Button1 oluşturmak ve sonra da PowerPoint göstermek için tıklatın sunu.
Referanslar
Daha fazla bilgi için bkz:, aşağıdaki Microsoft Developer Network (MSDN) Web sitesi: PowerPoint otomatikleştirme hakkında daha fazla bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
180616PowerPoint sunusunu göstermek için MFC nasıl kullanılır
222929PowerPoint, Visual Basic kullanarak otomatikleştirme
PPT2007

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 303717 - Son İnceleme: 05/31/2007 03:39:24 - Düzeltme: 9.2

  • 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
  • kbmt kbexpertiseinter kbautomation kbhowto KB303717 KbMttr
Geri bildirim
etElementsByTagName('head')[0].appendChild(m);" onload="var m=document.createElement('meta');m.name='ms.dqp0';m.content='false';document.getElementsByTagName('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?">