|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub Jezyk() Dim j, k, m, scount, fcount, gcount As Integer scount = ActivePresentation.Slides.Count For j = 1 To scount fcount = ActivePresentation.Slides(j).Shapes.Count For k = 1 To fcount If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then ActivePresentation.Slides(j).Shapes(k) _ .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS End If If ActivePresentation.Slides(j).Shapes(k).Type = msoGroup Then gcount = ActivePresentation.Slides(j).Shapes(k).GroupItems.Count For m = 1 To gcount If ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m).HasTextFrame Then ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m) _ .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS End If Next m End If Next k Next j End Sub |
Zmiana języka wszystkich slajdów w PowerPoint na angielski
Otagowano PowerPoint.Dodaj do zakładek Link.
