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

Ö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.

165903
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Ö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
vba vbe ppt8.0 macppt 8.00 ppt8

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

Özellikler

Makale No: 165903 - Son İnceleme: 01/11/2015 01:22:45 - Düzeltme: 3.2

  • Microsoft PowerPoint 98 for Macintosh
  • Microsoft PowerPoint 97 Standard Edition
  • kbnosurvey kbarchive kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB165903 KbMttr
Geri bildirim