PPT: Contoh kode untuk menyalin slide presentasi lain

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 161661 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft PowerPoint 2001 pada artikel ini, lihat 274700.
Untuk versi Microsoft PowerPoint 2000 artikel ini, lihat 222780.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini berisi contoh Microsoft Visual Basic untuk aplikasi makro (Sub prosedur) yang salinan semua slide, sebagai objek PowerPoint, dari presentasi Anda aktif untuk presentasi lain. Jika Anda memiliki satu presentasi terbuka, makro menciptakan dan kemudian menambahkan slide baru presentasi. Jika Anda memiliki dua presentasi terbuka, makro menambahkan slide untuk akhir presentasi kedua.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Prosedur Visual Basic sampel

   Sub SlideCopy()

      ' Variable declarations.
      Dim SourceView, answer As Integer
      Dim SourceSlides, NumPres, x As Long

      ' Count the open presentations.
      NumPres = Presentations.Count

      ' Check to see whether more than one presentation is open.
      If NumPres = 0 Then
         ' If no presentations are open, stop the macro.
         MsgBox "You must have at least one presentation open", _
            vbCritical + vbOKOnly, "No Presentations Open"
         End
      End If

      ' If more than two presentations are open, quit the macro.
      If NumPres > 2 Then
         MsgBox "Too many open presentations. Only two presentations" _
            & " may be open." & Chr(13) & "The active presentation is " _
            & "the source and other presentation is the destination.", _
            vbOKOnly + vbCritical, "Too Many Open Presentations"
         End
      End If

      ' Stores the current view of the source presentation.
      SourceView = ActiveWindow.ViewType

      ' Count the number of slides in source presentation.
      SourceSlides = ActivePresentation.Slides.Count

      ' See whether only one presentation is open.
      If NumPres = 1 Then
         answer = MsgBox("Only one presentation is open. " & _
            "This presentation will be used as the source. " & _
            Chr(13) & "Press YES to create a new presentation as " _
            & "the destination.", vbYesNo + vbQuestion, "Only One " _
            & "Presentation Open")

         ' If no selected in the message box, quit the macro.
         If answer = vbNo Then
            End
         End If

         ' Create a new presentation for the designation.
         Presentations.Add

         ' Set up the slide size to be the same as the source.
         With ActivePresentation.PageSetup
            .SlideHeight = Presentations(1).PageSetup.SlideHeight
            .SlideWidth = Presentations(1).PageSetup.SlideWidth
         End With

         ' Switch the destination presentation to slide view.
         If ActiveWindow.ViewType <> ppViewSlide Then
            ActiveWindow.ViewType = ppViewSlide
         End If

         ' Switch to the source presentation.
         Presentations(1).Windows(1).Activate

      End If

      ' Change the view to slide sorter if not there already.
      If ActiveWindow.ViewType <> ppViewSlideSorter Then
         ActiveWindow.ViewType = ppViewSlideSorter
      End If

      ' Loop through all the slides and copy them to destination one by
      ' one.
      For x = 1 To SourceSlides
         ' Select the first slide in the presentation and copy it.
         ActivePresentation.Slides.Range(Array(x)).Select
         ActiveWindow.Selection.Copy

         ' Switch to destination presentation.
         Presentations(2).Windows(1).Activate

         ' Create a new slide.
         ActivePresentation.Slides.Add _
            ActivePresentation.Slides.Count + 1, ppLayoutBlank

         ' Make sure the new presentation is slide view.
         If ActiveWindow.ViewType <> ppViewSlide Then
            ActiveWindow.ViewType = ppViewSlide
         End If

         ' Switch to the proper slide.
         ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Count

         ' Paste the slide.
         ActiveWindow.View.Paste

         ' Adjust the size of the pasted object.
         With ActiveWindow.Selection.ShapeRange
            .Left = 0
            .Top = 0
            .Width = ActivePresentation.PageSetup.SlideWidth
            .Height = ActivePresentation.PageSetup.SlideHeight
         End With

         ' Unselect the object.
         ActiveWindow.Selection.Unselect

         ' Switch to source.
         Presentations(1).Windows(1).Activate

      Next x

      ' Restore the current view to source.
      ActiveWindow.ViewType = SourceView

   End Sub
				

REFERENSI

Untuk informasi lebih lanjut tentang menciptakan Visual Basic untuk aplikasi macro, Klik kantor asisten di Microsoft PowerPoint, jenis cara membuat makro klik Cari, dan kemudian klik untuk melihat "membuat makro di Visual Dasar Editor."

Untuk informasi lebih lanjut tentang menjalankan Visual Basic untuk aplikasi macro, Klik kantor asisten di Microsoft PowerPoint, jenis cara run makro, klik Cari, dan kemudian klik untuk melihat "Menjalankan makro."

Catatan: Jika asisten tersembunyi, klik tombol kantor asisten Toolbar standar. Jika asisten tidak mampu menjawab pertanyaan Anda, silakan Lihat artikel berikut pada Basis Pengetahuan Microsoft:
176476 DARI: Kantor asisten tidak menjawab pertanyaan Visual Basic
Untuk informasi lebih lanjut tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, Silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
163435 VBA: Pemrograman sumber daya untuk Visual Basic untuk aplikasi

Properti

ID Artikel: 161661 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft PowerPoint 98 for Macintosh
  • Microsoft PowerPoint 97 Standard Edition
Kata kunci: 
kbcode kbdtacode kbhowto kbmacro kbprogramming kbmt KB161661 KbMtid
Penerjemahan Mesin
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:161661
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

Berikan Masukan

 

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