ProZ.com global directory of translation services
 The translation workplace
Ideas

 
Pages in topic:   < [1 2]
User
Thread poster: Antoní­n Otáhal
Set language in entire PPT presentation
iwork2ski
United Kingdom
including the notes page Mar 3, 2010

Antonín thanks for an excellent bit of code. Works a treat.

Did a quick check and found this entry.
http://www.vbaexpress.com/kb/getarticle.php?kb_id=429
Which shows the notespage code.

So add this line after the next k

ActivePresentation.Slides(j).NotesPage. _
Shapes.Placeholders(2).TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUK

[Edited at 2010-03-03 14:08 GMT]


Direct link Reply with quote
 
Andrew Alix  Identity Verified
United States
Local time: 14:32
Member (2010)
Norwegian to English
+ ...
Other code to change language Aug 6, 2010

Appreciated your code Antonin. You might appreciate the following code. When you type it in, as soon as you type the "." you'll notice that VBA suggests the next command. When you type the "=" for the language selection, VBA will present a menu that gives you the choice of all the languages available, starting with "msoLanguageID" and ending with the language of your choice.

If you don't get the menu press "Control" plus the "j" key and it will come up
Code is as follows:

Sub ChangeLanguage()
Dim sld As Slide, shp As Shape
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUK
End If
Next shp
sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUK
Next sld
End Sub

Not sure about the placeholders code line after "Next shp" though I think it works.

[Edited at 2010-08-06 13:42 GMT]

[Edited at 2010-08-06 13:43 GMT]


Direct link Reply with quote
 

Antoní­n Otáhal
Czech Republic
Local time: 21:32
Member (2005)
English to Czech
+ ...
TOPIC STARTER
Nicer code, the same outcome Aug 6, 2010

I do know I tend to old-timer type of code.

Yours is more elegant. Thanks.

Antonin


Direct link Reply with quote
 
Pages in topic:   < [1 2]


To report site rules violations or get help, contact a site moderator:

Moderator(s) of this forum
Maya Gorgoshidze[Call to this topic]
Mohamed Kamel[Call to this topic]

You can also contact site staff by submitting a support request »

Set language in entire PPT presentation






SDL Trados Studio 2011 Starter Edition
Discover Studio 2011 for only 99€ per year!

SDL Trados Studio 2011 Starter Edition is the new low cost entry-level version of the leading translation memory software. This version is ideal for part-time translators and is a subscription based product. Follow the link to buy or learn more.

More info »
SDL MultiTerm Extract 2011
Save time by automatically extracting terms. 15% off!

SDL MultiTerm Extract 2011 allows you to automatically create candidate term lists from your existing documentation. This removes the manual effort involved with traditional terminology creation, allowing you to rapidly add terms to SDL MultiTerm.

More info »