Forum

powerpoint, vba, fo...
 
Powiadomienia
Wyczyść wszystko

powerpoint, vba, format interline, vertical text space

1 Wpisy
1 Użytkownicy
0 Reactions
1,097 Widoki
0
Rozpoczynający temat

example vba code

1 odpowiedź
0
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

Twoja odpowiedź

Nazwa autora

E-mail autora

Twoje zapytanie *

 
Podgląd 0 rewizje Zapisano
Udostępnij: