| User | Thread poster: Antonín Otáhal Set language in entire PPT presentation |
|---|
Antonín Otáhal
Czech Republic
Local time: 22:05
 Member (2005)
English to Czech
+ ...
|
(1) How can I set (using a macro) the language, say US English, in an entire PowerPoint presentation (including textboxes)?
(2) What method is used in PowerPoint to store a macro which applies to all presentations (not just the current one)?
Antonin
| | | |
Katalin Horvath McClure 
United States
Local time: 16:05
 Member (2002)
English to Hungarian
+ ...
| | Some info to check out | Jul 17, 2005 |
antonin_1955 wrote:
(1) How can I set (using a macro) the language, say US English, in an entire PowerPoint presentation (including textboxes)? |
|
I think you will need to write your own VBA code to do that.
(2) What method is used in PowerPoint to store a macro which applies to all presentations (not just the current one)?
|
|
It seems that you will need to create an Add-On that runs the macro, and have the add-on loaded when you start Powerpoint.
I have never done this myself, but here are a few good articles that may help you:
How do I use VBA code in PowerPoint?
http://www.rdpslides.com/pptfaq/FAQ00033.htm
Create an ADD-IN with TOOLBARS that run macros
http://www.rdpslides.com/pptfaq/FAQ00031.htm
The PowerPoint Add-in FAQ
http://skp.mvps.org/ppafaq.htm
PPT: How to Create a PowerPoint 97 Add-In
http://support.microsoft.com/kb/q163461/
Katalin
| | | |
Antonín Otáhal
Czech Republic
Local time: 22:05
Member (2005)
English to Czech
+ ...
TOPIC STARTER |
It seems quite a lot of work for something so seemingly straightforward; however, it looks like there is no way around it. 
Thank you for the reference, which will make it a bit easier, I believe.
Antonin
| | | |
Antonín Otáhal
Czech Republic
Local time: 22:05
Member (2005)
English to Czech
+ ...
TOPIC STARTER | | VBA code for PPT | Jul 18, 2005 |
If anyone is interested, this macro sets language to UK English in all text frames in the current presentation:
Sub LangInFrames()
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 = msoLanguageIDEnglishUK
End If
Next k
Next j
End Sub
| | | |
Michael McCain
Spain
Local time: 22:05
Member (2003)
Arabic to English
+ ...
| | Same macro, but for notes pages? | Oct 16, 2006 |
I regularly use the VBA code below and it's a real time-saver. Would any of you know how to tweak it so that it also changes the languages of the 'notes' page below each slide?
MIchael
VBA code for PPT
If anyone is interested, this macro sets language to UK English in all text frames in the current presentation:
Sub LangInFrames()
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 = msoLanguageIDEnglishUK
End If
Next k
Next j
End Sub
| | | |
Antonín Otáhal
Czech Republic
Local time: 22:05
Member (2005)
English to Czech
+ ...
TOPIC STARTER | | don't think so | Oct 16, 2006 |
As far as I am aware, there is no "SpeakerNotes" collection in VBA for PPT.
As a workaround, you can go to menu "File-Send to", choose "MS Word, "Notes next to" - now you have them all in one column of a Word file and can change their language easily; but at this moment I don't know of any other way than copying them back to the ppt one by one.
I feel that this way is still easier than changing the language for each of them in the original ppt, but you may have a diffferent point of view.
HTH
Antonin
PS: when you copy my code as-is, perps saying it is not yours might be viewed as a nice touch - not that I am overly sensitive about it.
| | | |
Michael McCain
Spain
Local time: 22:05
Member (2003)
Arabic to English
+ ...
|
I took it for granted that the code was public and that you'd found it somewhere else, such as in an MS developor's kit or another forum. Now that I know YOU'RE the one who has shaved hours off my post-translation processing I'll gladly give credit where it's due.
Although I would trade half my hard-back dictionaries for a Macro that changes the Notes Pages language, I must say by now I've learned to do it manually very quickly.
Michael
Antonín Otáhal wrote:
As far as I am aware, there is no "SpeakerNotes" collection in VBA for PPT.
As a workaround, you can go to menu "File-Send to", choose "MS Word, "Notes next to" - now you have them all in one column of a Word file and can change their language easily; but at this moment I don't know of any other way than copying them back to the ppt one by one.
I feel that this way is still easier than changing the language for each of them in the original ppt, but you may have a diffferent point of view.
HTH
Antonin
PS: when you copy my code as-is, perps saying it is not yours might be viewed as a nice touch - not that I am overly sensitive about it. |
|
  | | | |
Antonín Otáhal
Czech Republic
Local time: 22:05
Member (2005)
English to Czech
+ ...
TOPIC STARTER | | Link to VBA code forums | Oct 19, 2006 |
Yoy can try the following link:
http://www.vbaexpress.com/forum/
I usually go there if I have some problems with VBA code I cannot solve myself.
Antonin
| | | |
minigts
United States
| | Thanks for the code help | Mar 5 |
Hi Antonín Otáhal,
Thanks for posting the code with regards to the language change for all text within a powerpoint. I am pretty versed in the Office suite, but this was the one thing I wasn't ever able to do, and rightly so as it takes VBS code to do so! It really should not be necessary for end users to write code in order to achieve this, but nevertheless you have helped me greatly.
Thanks again,
Jon
| | | |
Antonín Otáhal
Czech Republic
Local time: 22:05
Member (2005)
English to Czech
+ ...
TOPIC STARTER |
Hi Jon,
You may have a point here, but when you need to change the language in a long presentation, trying to persuade Microsoft they should do something about it does not seem to be a very promising route, or does it? 
Antonin
P.S. It is not so difficult (I mean VBA) and can make your life much easier in many situations. I am far from being a professional programmer.
| | | |
mariale125
Peru
Local time: 15:05
English to Spanish
|
... for the code Antonín, you have been kind enough to share it with us. Sorry if it is a silly question but I am hopeless at computer stuffs. If I want to change the macro and set the language into another one instead of English, let's say Spanish or French, do I have to change only the eight line, and replace EngishUK for French? Normally, I would try it myself before asking but I am on vacations until april and this computer does not have Office, it is just to check my mails, and I do not want to miss the opportunity to solve my doubt.
TIA
Mariale
| | | |
Antonín Otáhal
Czech Republic
Local time: 22:05
Member (2005)
English to Czech
+ ...
TOPIC STARTER | | Changing the language | Mar 7 |
Simply put your desired language's code in this line instead of msoLanguageIDEnglishUK:
.LanguageID = msoLanguageIDEnglishUK
You can find a full list of these codes in the VBA help for "LanguageID Property", but trying to use the "human" English word for the language instead of "EnglishUK" usually works
Antonin
| | | |
mariale125
Peru
Local time: 15:05
English to Spanish
|
Hi Antonín, you are great! Thanks for sharing your knowledge with us. 
Have a nice week.
Mariale
| | | |
There is no moderator assigned specifically to this forum.
Advanced directory
Certified PRO Network
