Bazen lazım oluyor:
Kaynak
Well, the only way to go around this is a macro (!) I’ve got fromChocotooth’s blog:
Sub SetLangUS()
Dim scount, j, k, fcount
scount = ActivePresentation.Slides.Count
For j = 1 To scount
fcount = ActivePresentation.Slides(j).Shapes.Count
For k = 1 To fcount 'change all shapes:
If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
ActivePresentation.Slides(j).Shapes(k).TextFrame _
.TextRange.LanguageID = msoLanguageIDEnglishUS
End If
Next k
fcount = ActivePresentation.Slides(j).NotesPage.Shapes.Count
For k = 1 To fcount 'change all shapes:
If ActivePresentation.Slides(j).NotesPage.Shapes(k).HasTextFrame Then
ActivePresentation.Slides(j).NotesPage.Shapes(k).TextFrame _
.TextRange.LanguageID = msoLanguageIDEnglishUS
End If
Next k
Next j
End Sub
|
I’m founder and director of The Digital Agency; a certified Google Partner and Shopify Partner digital marketing agency operating in London and Istanbul. The Digital Agency has a solid track record of delivering high growth in eCommerce, Facebook & Google advertising, social media communication, search engine optimization, eCommerce and website production through 16 years of experience with 140 brands in 500 projects. Visit The Digital Agency here
