何十枚ものスライド、それぞれにテキストボックスの数が書かれたパワーポイントのプレゼンテーションが送られてきました。プレゼンテーションは英語で書かれていますが、スペルチェックの言語はカナダのフランス語に設定されています。私は英語に言語を変更しようとしていますが、私はすべてのスライドを選択し、言語ダイアログボックスの新しい要素を選択した場合でも、テキストボックスの言語は同じままです。なので、スライドごとにテキストボックスを選択して、個別に言語を変更していくという手順を踏まなければなりません。
これを行う良い方法はありますか？
私がインストールしているPowerPointのバージョンは2002 SP3です。
しかし、マクロを作成して保存したり、マクロを使用して保存したりするのは、人によっては怖すぎるかもしれません（あるいは、セキュリティ設定で実現が難しいかもしれません）。そこで、より簡単な解決策として、通常のビルトイン機能を使用してマクロを作成する方法があります。トリックは、スライド自体ではなく、一度にすべてのスライド上のすべてのオブジェクトを選択できるようにすることであり、これは簡単にアウトラインビューで達成されます (悲しいかな使用されていない機能ですが、スライドデッキを再編成し、全体のチャンクを促進し、降格させるために素晴らしいです。)
私はPowerPoint 2002 (“XP”)を持っていないので、2000用の指示に従う必要があるのか2003用の指示に従う必要があるのかわからないので、ここでは両方をカバーしています。
In PP 2003 onwards: “normal” view (3ペインレイアウト)に移動し、スライドナビゲータの上部にある “slides "ではなく "outline "を選択します。
Ctrl-Aで全てを選択。
Tools > Language ≪言語≫ 設定する言語を選択します。
(from Powerpoint 2013) REVIEW > Language > Set Proofing language
Job done.
同様に、すべてを選択している間に、フォントや色などの他のものを変更することができます。もちろん、多くの場合、これはスライドマスターを変更することによって行われる方が良いのですが、多くのエディタを持っているプレゼンテーションでは、基本的なマスターから逸脱した「ハード」な書式設定がたくさんあるかもしれませんし、一貫性を保つためにリセットする必要があります。また、マスタースタイルに個々のスライドをリセットすることができますが、これはいくつかの状況で望ましくないかもしれませんが、同様に移動プレースホルダになる可能性があります。
私が従った手順は以下の通りです。
1.新しいマクロを作成する。
1.1. ツール]、[マクロ]、[Visual Basic エディタ]に移動します。
1.2. 新しい空のモジュールを挿入するには、[挿入]、[モジュール]を選択します。
2. このコードを右パネルに貼り付け、マクロを保存します。
その後、プレゼンテーション内のすべてのテキスト要素に新しいスペル言語が適用されます。
手作業でやったり、単発のマクロを使ったりしていた何度ものプレゼンの後、ようやく折れて、ちゃんとしたPowerPointのアドインにしました。
私のウェブサイトにアップロードしました。PowerPoint LanguageFixer ](http://www.janschejbal.de/projekte/languagefixer/)
これは以下を処理します。
テキストボックスの1つを希望の言語に設定して、選択してボタンをクリックするだけです。
状況に応じて2つの選択肢があります。
状況 1: Office の元のコピーは、カナダのフランス語ベースのインストールメディアからインストールされました。
デフォルト言語を英語に設定できますが、コア機能はインストールメディアの母国語を使用します。
唯一の解決方法は、カナダのフランス語版をアンインストールして、英語ベースのインストールメディアからインストールするか、プレゼンテーション全体を新しいdocにコピー/ペーストして再フォーマットすることです。
.
状況2: すべて英語のように見えるが、限られた状況では外国語が表示される。
このような状況では、Office 2002 の修復手順を以下に示します:
1.スタートメニューをクリックします。2. プログラムを選択 3. Microsoft Office Tools “をポイント 4. Microsoft Office XP 言語設定をクリックします。 5. 有効な言語]タブをクリックする。 6. Microsoft Officeのデフォルトバージョンのボックスに移動 7. 必要な言語を選択します。OK をクリックします。どのような変更が行われるかを示すメッセージが表示されます。 9. 続行をクリックする
ご参考になれば幸いです。
Leonardoが投稿したコード ](https://superuser.com/a/61306/245595)はシンプルで一般的に効果的ですが、グループ内の`Shape`には影響しません。より一般的なコードでは、このケースにも再帰を使って対処しています（[ こちら ](http://www.proz.com/forum/office_applications/34774-set_language_in_entire_ppt_presentation-page2.html#2054897)から少し変更されていますが、Leonardoさんのコードと同じスレッドにあります）。
Private Function ChangeLangOfAllText_caller()
'ChangeLangOfAllText (msoLanguageIDEnglishUS)
ChangeLangOfAllText (msoLanguageIDSpanishArgentina)
End Function
Private Function ChangeLangOfAllText(ByVal LangID As Long)
Dim MySlide As Slide
Dim MyShape As Shape
Dim MyD As Design
Dim MyHeaderFooter As HeaderFooter
Dim i, nbs As Integer
''''' First deal with the master slides
For Each MyD In ActivePresentation.Designs
For Each MyShape In MyD.SlideMaster.Shapes
ProcessShapes MyShape, LangID
Next MyShape
Next MyD
''''' Now deal with the slides
' Enable this for debugging
'Debug.Print "File " & ActivePresentation.Name & _
": working with " & ActivePresentation.Slides.Count & " slides"
For Each MySlide In ActivePresentation.Slides
' Enable this for debugging
'Debug.Print " Slide index " & MySlide.SlideIndex & ", Slide number " & MySlide.SlideNumber & _
": working with " & MySlide.Shapes.Count & " shapes"
For Each MyShape In MySlide.Shapes
ProcessShapes MyShape, LangID
Next MyShape
''''' Now deal with the Notes
For Each MyShape In MySlide.NotesPage.Shapes
ProcessShapes MyShape, LangID
Next MyShape
''''' Now deal with the master ' doesn't appear to work, have to try something else
For Each MyShape In MySlide.Master.Shapes
ProcessShapes MyShape, LangID
Next MyShape
Next MySlide
End Function
Private Function ProcessShapes(MyShape As Shape, ByVal LangID As Long)
Dim i As Integer
If ((MyShape.Type = msoGroup) Or (MyShape.Type = msoTable)) Then
On Error Resume Next
For i = 1 To MyShape.GroupItems.Count
''' The trick is to recurse!
ProcessShapes MyShape.GroupItems.Item(i), LangID
Next i
Else
ChangeLang MyShape, LangID
End If
End Function
Private Function ChangeLang(MyShape As Shape, ByVal LangID As Long)
Dim i As Integer
If (MyShape.HasTextFrame) Then
' Enable this for debugging
'Debug.Print " Shape " & MyShape.ZOrderPosition & ", type: " & MyShape.Type & _
", has text frame: " & MyShape.HasTextFrame & ", has text: " & MyShape.TextFrame.HasText & _
", alt. text: " & MyShape.AlternativeText
MyShape.TextFrame.TextRange.LanguageID = LangID
End If
End Function
私は、ドイツ語のPowerPointで作成されたプレゼンテーションで、手動で英語に翻訳されている場合と同じ問題を抱えていました。問題は、言語設定が本質的に各テキストボックス要素に適用される書式設定であるということです。
私は便利な解決策を知りません – 私は、不一致を我慢するか、各スライドの各テキストボックスの言語「書式」を手動で変更するしかありませんでした。楽しくないので、ほとんどの場合、私はそれと共存しています。