Hallo zusammen,
habe folgendes Problem.
Bei uns werden oft Folien mir ppt in verschiedenen Sprachen geschrieben, (deutsch, englisch, franz).
Jetzt kann ich zwar über Extra -> Sprache die richtige Sprache auswählen, würde aber gerne die jeweilig Sprache als Icon haben.
Sprich ich drücke auf ein Icon D dann wird die Autokorrektur in deutsch vorgenommen.
Kennt jemand den VB - Befehl, dann könnte ich mir das Macro selber zusammen basteln.
Im voraus besten Dank
Pierre
Hallo Pierre,
die VB-Befehle lauten:
ActivePresentation.DefaultLanguageID = msoLanguageIDGerman
ActivePresentation.DefaultLanguageID = msoLanguageIDFrench
ActivePresentation.DefaultLanguageID = msoLanguageIDEnglishUS
Gruß
Sculpture
vorab vielen dank für deine antwort,
leider funktioniert es doch nicht so richtig wie ich mir es vorgestellt habe 
wie müsste den deiner meinung nach der code aussehen um dieses umstellen zu erreichen.
G Pierre
Hallo Pierre,
schau mal hier im Forum unter „Präsentationssoftware“ den Artikel vom 6.3. an. Vielleicht hilft tatsächlich nur die Umstellung des Tastaturlayouts
Werde nochmal darüber nachdenken.
Gruß
Sculpture
Möglicher Workaround 
Hallo Pierre,
jetzt ist mir doch noch was eingefallen: der folgende Code geht die gesamte Präsentation durch und stellt für jedes Textfeld die Sprache ein. Anschließend erstellte Felder werden allerdings weiterhin nach Tastaturlayout interpretiert, d.h. man muss den Code immer wieder aufrufen. Naja, ein „Workaround“ eben …
For j = 1 To ActivePresentation.Slides.Count
ActiveWindow.View.GotoSlide j
With ActivePresentation.Slides(j)
For i = 1 To .Shapes.Count
.Shapes(i).Select
ActiveWindow.Selection.TextRange.LanguageID = msoLanguageIDEnglishUS
Next
End With
Next
Hoffe, es funktioniert bei Dir, die anderen Sprachencodes sind entsprechend meinem vorhergehenden Posting.
Gruß
Sculpture