PPT: Rechtschreibüberprüfung auf deutsch stellen

ok...jetzt hab ich doch was gefunden das hilft, mit einem Makro gehts:

Sub ChangeProofingLanguageToGerman()
Dim j, k As Integer
Dim languageID As MsoLanguageID

'Set this to your preferred language
languageID = msoLanguageIDGerman

For j = 1 To ActivePresentation.Slides.Count
For k = 1 To ActivePresentation.Slides(j).Shapes.Count
ChangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), languageID
Next k
Next j
End Sub
Sub ChangeAllSubShapes(targetShape As Shape, languageID As MsoLanguageID)
Dim i As Integer

If targetShape.HasTextFrame Then
targetShape.TextFrame.TextRange.languageID = languageID
End If

Select Case targetShape.Type
Case msoGroup, msoSmartArt
For i = 1 To targetShape.GroupItems.Count
ChangeAllSubShapes targetShape.GroupItems.Item(i), languageID
Next i
End Select
End Sub

siehe https://superuser.com/questions/432...slides-at-once/