Cara menggunakan otomatisasi untuk membuat dan menampilkan presentasi PowerPoint dengan menggunakan Visual Basic.NET 2002 atau Visual Basic.NET 2003

Dukungan untuk Office 2003 telah berakhir

Microsoft mengakhiri dukungan untuk Office 2003 pada 8 April 2014. Perubahan ini telah memengaruhi pemutakhiran perangkat lunak dan opsi keamanan Anda. Pelajari apa artinya ini bagi Anda dan cara untuk tetap terlindungi.

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:303717
Untuk Microsoft Visual C#.NET versi ini Pasal, lihat 303718.
Untuk Microsoft Visual C++.NET versi ini Pasal, lihat 308336.
RINGKASAN
Artikel ini menjelaskan cara menggunakan otomatisasi untuk membuat dan untuk menunjukkan presentasi Microsoft PowerPoint dengan menggunakan Microsoft Visual Basic.NET 2002 atau Visual Basic.NET 2003.
INFORMASI LEBIH LANJUT

Membuat klien otomasi untuk Microsoft PowerPoint

  1. Mulai Microsoft Visual Studio.NET 2002 atau Visual Studio .NET 2003. Pada Berkas menu, klik Baru kemudian klik Project. Pilih Aplikasi Windows dari jenis proyek Visual Basic. Form1 dibuat oleh default.
  2. Menambahkan referensi ke Perpustakaan objek Microsoft PowerPoint dan Perpustakaan objek Microsoft grafik. Untuk melakukannya, ikuti langkah-langkah berikut:
    1. Pada Project menu, klik Tambahkan Referensi.
    2. Pada COM tab, Cari Perpustakaan objek Microsoft PowerPoint, lalu klik Pilih. Juga menemukan Microsoft grafik objek Perpustakaan, lalu klik Pilih.

      Catatan: Microsoft Office 2003 dan versi terbaru dari Microsoft Office termasuk utama Interop Majelis (PIAs). Microsoft Office XP tidak mencakup PIAs, tetapi mereka mungkin download.

      Untuk lebih informasi tentang Office XP PIAs, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
      328912Microsoft Office XP PIAs tersedia untuk di-download
    3. Klik Oke dalam Tambahkan Referensi kotak dialog untuk menerima pilihan Anda.
  3. Pada Lihat menu, pilihToolbox untuk menampilkan Toolbox dan menambahkan tombol untuk Form1.
  4. Klik dua kali Button1. Jendela kode untuk bentuk muncul.
  5. Dalam jendela kode, mencari kode berikut
        Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click    End Sub					
    Ganti dengan kode berikut:
        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					
    Catatan Dalam kode ini, sTemplate dan sPic konstanta mewakili path lengkap dan nama file untuk PowerPoint template dan gambar, masing-masing. Mengubah ini jalan yang diperlukan untuk menggunakan template atau gambar yang diinstal pada sistem Anda.
  6. Menambahkan kode berikut ke atas Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.GraphImports PowerPoint = Microsoft.Office.Interop.PowerPoint					
  7. Tekan F5 untuk membangun dan kemudian jalankan program.
  8. Klik Button1 pada form untuk membuat dan kemudian menunjukkan PowerPoint presentasi.
REFERENSI
Untuk selengkapnya, lihat Microsoft berikut pengembang Situs Web Network (MSDN): Untuk informasi lebih lanjut mengenai otomatisasi PowerPoint, klik artikel berikut nomor ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
180616Cara menggunakan MFC untuk membuat dan menampilkan presentasi PowerPoint
222929 Cara mengotomatisasi PowerPoint menggunakan Visual Basic
PPT2007
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 303717 - Tinjauan Terakhir: 09/24/2011 17:47:00 - Revisi: 2.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 KbMtid
Tanggapan