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