Filehost.ro - gazduire fisiere
Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff. 		Nou pe simpatie:
Adelinadia
Femeie
25 ani
Mures
cauta Barbat
27 - 71 ani
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides /

[POWERPOINT] Create Custom Bullets with VBA

 Pagini: 1 Moderat de TRaP, TonyTzu
#1
TRaP
Moderator
Postari: 960
Provided that you selected some paragraphs:


Sub SetBulletIndentation()
    Dim I As Integer

With Application.ActiveWindow.Selection
    If .Type = ppSelectionText Then
        ' Loop through paragraphs and set bullet formatting
        For I = 1 To .TextRange2.Paragraphs.Count
                .TextRange2.Paragraphs(I).ParagraphFormat.Bullet.Type = ppBulletUnnumbered
                .TextRange2.Paragraphs(I).ParagraphFormat.LeftIndent = 35.1          ' 1,24 cm
                .TextRange2.Paragraphs(I).ParagraphFormat.FirstLineIndent = -21.1    ' 0,74 cm
        Next I
    End If
End With
End Sub


Source:
http://www.vbaexpress.com/forum/archive ... 64340.html
 
   
Pagini: 1  
Mergi la