PPT: Özel bir slayt gösterisi oluşturmak örnek VB kodu

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

Bu Sayfada

Özet

Microsoft PowerPoint, slaytları bazıları sunudaki bir slayt gösterisi olarak görüntülemek için veya bir slayt gösterisini çalıştırdığınızda, slaytları yeniden sıralamak için sağlayan bir özel gösteri özelliği vardır.

Bu makalede, bir örnek Microsoft Visual Basic for Applications makrosu (alt yordam) özel bir gösteriyi oluşturan içerir. Makro Etkin sunudaki tüm slaytlara içeren özel bir gösteri oluşturur. Kendi özel bir gösteriye bir parçası olarak belirli slaytlara seçmek için bu kodu değiştirebilirsiniz.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Örnek Visual Basic yordamı

Sub CreateCustomShow()

   On Error Resume Next

   'Change this value to the name you want to use for your
   'custom slide show.
   Const strDefaultName As String = "My Custom Show"

   Dim lNumSlides, lSlideList(), lCount As Long
   Dim oSlide As Slide
   Dim strPrompt, strShowName As String
   Dim Continue As Boolean: Continue = False

   'Get the number of slides in the active presentation.
   lNumSlides = ActivePresentation.Slides.Count

   'Make sure at least 1 slide is in the presentation.
   If lNumSlides < 1 Then
     MsgBox "No slides in the presentation.", vbExclamation, "No Slides"
     End
   End If

   'Initialize the counter.
   lCount = 0

   'Loop through the slides in the presentation.
   For Each oSlide In ActivePresentation.Slides

      'Make the array one element larger.
      ReDim Preserve lSlideList(lCount)

      'Add the slide id to the array.
      lSlideList(lCount) = oSlide.SlideID

      'Increment the counter.
      lCount = lCount + 1

   Next oSlide

   'Reset the counter
   lCount = 0

   'Set the name of the custom show to the default.
   strShowName = strDefaultName

   'Loop until a custom show is created.
   Do

      'Increment the counter.
      lCount = lCount + 1

      With ActivePresentation.SlideShowSettings.NamedSlideShows

         'Clear the error object.
         Err.Clear

         'Create the custom show.
         .Add strShowName, lSlideList

         'Check to see if an error occurred creating the show.
         'A run-time error occurs if the custom show name you specify
         'is already being used.
         If Err.Number <> 0 Then

            'Change the name of the custom show
            strShowName = strDefaultName & " " & CStr(lCount)
         Else
            Continue = True
         End If

      End With

   Loop While Continue = False

   'Create and then display message box.
   strPrompt = "Successfully created custom show named " & strShowName _
    & ". To view the show:" & Chr(13) & Chr(13) _
    & Chr(9) _
    & "1. On the Slide Show menu, click Custom Shows." _
    & Chr(13) & Chr(9) _
    & "2. Highlight the custom show you want to run." _
    & Chr(13) & Chr(9) _
    & "3. Click the show button to run the show." _
    & Chr(13) & Chr(13) _
    & "NOTE: If the Custom Shows dialog box is visible " _
    & "when you run this macro. Close and" _
    & Chr(13) _
    & "then reopen the dialog box to see the updated custom show list."
   MsgBox strPrompt, vbInformation, "Custom Show Created!"

End Sub
				

Referanslar

Visual Basic Applications makroları oluşturmak hakkında daha fazla bilgi için Office Yardımcısı'nı Microsoft PowerPoint'te makro oluşturma yazın, Ara'yı tıklatın ve "bir makroyu Visual Basic Düzenleyicisi'nde oluşturma." görüntülemek için tıklatın

Applications makroları için Visual Basic çalıştırma hakkında daha fazla bilgi için Office Yardımcısı'nı Microsoft PowerPoint'te makro çalıştırma yazın, Ara'yı tıklatın ve "bir makro Çalıştır" görüntülemek için tıklatın

Not:, yardımcıyı gizli, Office Yardımcısı standart araç çubuğu düğmesini tıklatın. Yardımcıyı sorgunuzu yanıtlamaya bağlanamıyorsa, lütfen Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
176476OFF: Office Yardımcısı Visual Basic sorulara yanıt vermek.
Visual Basic for Applications Yardım alma hakkında daha fazla bilgi için lütfen Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
163435VBA: Kaynaklar Visual Basic for Applications programlama

Özellikler

Makale numarası: 165217 - Last Review: 11 Ekim 2006 Çarşamba - Gözden geçirme: 3.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft PowerPoint 98 for Macintosh
  • Microsoft PowerPoint 97 Standard Edition
Anahtar Kelimeler: 
kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB165217 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:165217
Kullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.

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