Powiadomienia
Wyczyść wszystko
BugOverflow
1
Wpisy
1
Użytkownicy
0
Reactions
1,097
Widoki
0
09/10/2020 9:34 am
Rozpoczynający temat
example vba code
1 odpowiedź
0
09/10/2020 9:37 am
Rozpoczynający temat
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