PPT: Madde işaretleri, açık veya kapalı Turn örnek VB kodu

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

Bu Sayfada

Özet

Bu makalede, bir örnek Microsoft Visual Basic for Applications makrosu (alt yordam) gövde yer tutucusu, madde işaretleri değiştirir içerir. Kodu, madde işaretleri, herhangi bir şekilde geçiş yapmak için değiştirilebilir.

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ı

Not: en iyi sonuçları elde etmek için slayt görünümünde Bu makroyu çalıştırın.
 Sub ToggleBullets()

   On Error Resume Next

   Dim lSlideNum As Long
   Dim oShape As Shape

   ' Get current slide number.
   Err.Clear
   lSlideNum = ActiveWindow.Selection.SlideRange.SlideNumber

   ' Check if error occurred getting the slide number.
   If Err.Number <> 0 Then
      MsgBox Err.Description, vbExclamation
      End
   End If

   ' Find the body placeholder on the slide.
   For Each oShape In ActivePresentation.Slides(lSlideNum).Shapes

      ' Check if the shape is a placeholder.
      If oShape.Type = msoPlaceholder Then

         ' Check if placeholder is the body placeholder.
         If oShape.PlaceholderFormat.Type = ppPlaceholderBody Then

            ' Make the bullet visible if not visible. If
            ' some lines have the bullets turned on, leave the
            ' body alone.
            With oShape.TextFrame.TextRange.ParagraphFormat.Bullet
               If .Visible = msoTrue Then
                  .Visible = msoFalse
               Else
                  .Visible = msoTrue
               End If
            End With

        End If

      End If

   Next oShape

   End Sub
				

Referanslar

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

Uygulama makroları için Visual Basic çalıştırma hakkında daha fazla bilgi için Microsoft PowerPoint'teki Office Yardımcısı'nı tıklatın, türü bir makro çalıştırma Ara'yı tıklatın ve sonra "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ı: 165903 - 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 KB165903 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:165903
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