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. 		Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login

POZE MRRRR'S FORUM (VIEW ONLY)

Nu sunteti logat. 		Nou pe simpatie:
angel_jo Profile
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 72 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [POWERPOINT] Create Custom Bullets with VBA Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
TRaP
Moderator

Inregistrat: acum 7 ani
Postari: 822
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:
pus acum 11 zile
   
Pagini: 1  

Mergi la