Forum

powerpoint, vba, fo...
 
Notifications
Clear all

powerpoint, vba, format interline, vertical text space

   RSS

0
Topic starter

example vba code

1 Answer
0
Topic starter
Sub Formatuj()
Dim tekst

        For i = 7 To ActivePresentation.Slides.Count
   
                Set tekst = ActivePresentation.Slides(i).Shapes(2) 'every second text frame
                If tekst.HasTextFrame Then
                
                        With tekst.TextFrame.TextRange.ParagraphFormat
                            .LineRuleWithin = msoTrue
                            .SpaceWithin = 1.3
                        End With
                    
                         With tekst
                            .Left = 80
                            .Top = 130
                            .Width = 550
                            .Height = 380
                        End With

                End If
       Next
 End Sub

Odpowiedź

Author Name

Author Email

Your question *

 
Preview 0 Revisions Saved
Share: