powerpoint, vba, format interline, vertical text space« Wróć do listy pytań
example vba code
|
▲ ▼ |
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 |