Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Power Point 2007 - Sprache via VBA Makro auf US-Englisch umstellen

Mitglied: Blu3Scr33n

Blu3Scr33n (Level 1) - Jetzt verbinden

11.09.2011 um 15:17 Uhr, 7429 Aufrufe, 3 Kommentare

Hallo liebe Administratoren,

ich habe ein Problem in Power Point 2007 und leider nur sehr rudimentäre Ahnung von VBA.
Einige Präsentationen muss ich ins Englische übersetzen. Jetzt ist es sehr umständlich und zeitaufwendig die Standardsprache immer wieder manuell für jede Folie einzeln umzustellen.
Ich habe mich auch schon nach anderen Möglichkeiten als Makros umgeschaut. Diese führten allerdings allesamt nicht zum erhofften Ergebnis.
Laut Microsoft ist dieses mit Hilfe eines VBA-Makros möglich:
Support Microsoft
Wenn ich dieses Makro copy und paste und dann versuche auszuführen, dann sagt er mir:
Fehler beim Kompilieren
Syntaxfehler
und verweist auf folgende beide Zeilen (die er auch in rot makiert hat):
If shp.TextFrame.TextRange.Text = '' Then
shp.TextFrame.TextRange.Text = '[PLACEHOLDER TEXT]'

Was kann ich tun, damit dieses Makro bei mir funktioniert.

Ich bin Dankbar für alle Tipps und Ratschläge.

Beste Grüße,

Blu3Scr33n
Mitglied: Biber
11.09.2011 um 15:52 Uhr
Moin Blu3Scr33n,

eines meiner neuesten Hobbys sind die Anführungszeichen - da bin ich zumindest sensibilisiert.

Nimm doch mal probeweise statt der halben Anführungszeichen (== quotes == ') die im deutschen Schrift-Sprachraum üblichen (== double quotes == ").

E.g. streiche:
If shp.TextFrame.TextRange.Text = '' Then
shp.TextFrame.TextRange.Text = '[PLACEHOLDER TEXT]'

Setze:
If shp.TextFrame.TextRange.Text = '"" Then
shp.TextFrame.TextRange.Text = "[PLACEHOLDER TEXT]"


Grüße
Biber
Bitte warten ..
Mitglied: Blu3Scr33n
11.09.2011 um 21:17 Uhr
Hallo Biber,

danke. Ich werds morgen ausprobieren. Mal schauen, obs hilft.
Dir schonmal einen schönen Start in die Woche. Auf das der Montag nicht allzu schlimm werden wird

Grüße aus dem Rest des Wochendes,

Blu3Scr33n
Bitte warten ..
Mitglied: Blu3Scr33n
12.09.2011 um 11:58 Uhr
Hallo Biber,

danke für die Anführungszeichen. Dadurch sind schonmal die Syntaxfehler verschwunden.
Beim Ausführen des Makros gibt er mir auch die beiden Textboxen aus.
Allerdings ändert sich nur die angezeigte Standardsprache (unten links; rechts neben der Seitenanzahl)
Mein code sieht jetzt folgendermaßen aus:
01.
Sub Lingo() 
02.
    On Error Resume Next 
03.
 
04.
    ' Declare variables. 
05.
    Dim sld As Slide 
06.
    Dim shp As Shape 
07.
    Dim colShapes As New Collection 
08.
    Dim p As TextRange 
09.
    Dim r As TextRange 
10.
 
11.
    ' Loop through all the slides in the presentation. 
12.
    For Each sld In ActivePresentation.Slides 
13.
        ' Loop through each shape on each slide. 
14.
        For Each shp In sld.Shapes 
15.
            colShapes.Add shp 
16.
            CheckGroups shp, colShapes 
17.
        Next 
18.
 
19.
        For Each shp In sld.NotesPage.Shapes 
20.
            colShapes.Add shp 
21.
            If shp.HasTextFrame Then 
22.
                If shp.TextFrame.TextRange.Text = "" Then 
23.
                    shp.TextFrame.TextRange.Text = "[PLACEHOLDER TEXT]" 
24.
                End If 
25.
            End If 
26.
        Next 
27.
    Next 
28.
 
29.
    For Each shp In ActivePresentation.SlideMaster.Shapes 
30.
        colShapes.Add shp 
31.
    Next 
32.
 
33.
    For Each shp In ActivePresentation.TitleMaster.Shapes 
34.
        colShapes.Add shp 
35.
    Next 
36.
 
37.
    For Each shp In ActivePresentation.NotesMaster.Shapes 
38.
        colShapes.Add shp 
39.
    Next 
40.
 
41.
    MsgBox "There are [TOTAL]" & colShapes.Count & " shapes to be scanned." 
42.
 
43.
    For Each shp In colShapes 
44.
        If shp.TextFrame.TextRange.LanguageID = 1031 Then 
45.
            Debug.Print shp.Name 
46.
        End If 
47.
        shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS 
48.
        If shp.TextFrame.TextRange.Text = "[PLACEHOLDER TEXT]" Then 
49.
            shp.TextFrame.TextRange.Text = "" 
50.
        End If 
51.
    Next 
52.
 
53.
    MsgBox "Done!" 
54.
 
55.
    ActivePresentation.DefaultLanguageID = msoLanguageIDEnglishUS 
56.
End Sub 
57.
 
58.
Sub CheckGroups(shp As Shape, colShapes As Collection) 
59.
    On Error Resume Next 
60.
 
61.
    If shp.GroupItems.Count > 0 Then 
62.
        For Each g In shp.GroupItems 
63.
            colShapes.Add g 
64.
        Next 
65.
    End If 
66.
End Sub
Die Umstellung der Standarsprache kann ich auch per Hand machen. Was ich brauche ist ein Makro, dass mir alle Textblöcke (und Texte in den Formen) auf US-English umstellt.
Im Netz habe ich auch noch einen anderen Ansatz gefunden. Der schafft es allerdings nur die normalen Textblöcke zu ändern und nicht die Texte, die in Formen eingelassen sind (Sprich: in Kreise, etc.) Dieser wirkt auf mich allerdings noch sehr unfertig.
01.
Sub Englisch() 
02.
 
03.
   ' Declare variables. 
04.
   Dim sld As Slide 
05.
   Dim shp As Shape 
06.
 
07.
   ' Loop through all the slides in the presentation. 
08.
   For Each sld In ActivePresentation.Slides 
09.
         
10.
       ' Loop through each shape on each slide. 
11.
       For Each shp In sld.Shapes 
12.
             
13.
           ' If the Shape is a text box... 
14.
           If shp.Type = msoTextBox Or msoPlaceholder Then 
15.
           If shp.HasTextFrame Then 
16.
                 
17.
               ' ...then change the language to US English. 
18.
               ' NOTE: To change the language ID to another language, 
19.
               ' change the msoLanguageID value here to a 
20.
               ' different language. 
21.
               shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS 
22.
             
23.
           End If 
24.
           End If 
25.
       Next 
26.
   Next 
27.
End Sub
Ich hoffe ihr könnt mir weiterhelfen.

Grüße,

Blu3Scr33n
Bitte warten ..
Ähnliche Inhalte
Windows Systemdateien

Perflib Counter - Sprache auf Englisch umstellen

gelöst Frage von KnorkatorWindows Systemdateien6 Kommentare

Hallo, ich habe ein ähnliches Problem wie hier beschrieben. Ich möchte die Counter Werte unter HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib\007 mit denen ...

Microsoft Office

Office 2010 Sprache komplett umstellen

gelöst Frage von HansWurstAugustMicrosoft Office3 Kommentare

Hi Leute, habe auf einem Windows 7 ein Office 2010 aber in English. Will es komplett auf Deutsch umstellen, ...

Windows 7

"Region und Sprache" für alle Benutzer an einem PC umstellen

Frage von Thor01Windows 74 Kommentare

Hallo, ich müsste an einem PC die "Region und Sprache" auf Englisch stellen. Wenn ich dies jetzt als Admin ...

Windows Installation

Server 2016 auf englische Sprache umgestellt aber

gelöst Frage von justdanWindows Installation5 Kommentare

Ich habe das Englische Paket heruntergeladen und installiert. Hat isch alles auf Englisch verändert, Aber wenn man links unten ...

Neue Wissensbeiträge
Server-Hardware
HP iLO ist gefährdet (iLO 4))
Tipp von AlFalcone vor 6 StundenServer-Hardware

Gemäss Twitter und Heise gibt es eine Angriffsmöglichkeit auf iLO Quelle: iLO ist gefährdet

CMS
Erneut kritische Zero-Day-Lücke in Drupal
Tipp von Reini82 vor 15 StundenCMS

Laut einem Bericht auf t3n gibt es eine Schwere Sicherheitslücke in Drupal die auch schon ausgenutzt wird. Betroffen sind ...

Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 1 TagSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

Heiß diskutierte Inhalte
Windows Server
Alten DC entfernen
gelöst Frage von smartinoWindows Server27 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...

Ausbildung
Wie gelingt ein guter Einstieg in die FiSi-Ausbildung? (Umschulung)
Frage von SiAnKoAusbildung27 Kommentare

Schönen guten Tag, ich bin SiAnKo und habe seit dem 1.04.2018 eine Umschulung als FiSi angefangen. Ich möchte natürlich ...

Batch & Shell
Mit Powershell den Inhalt einer Excel mit einer Text Datei abgleichen
gelöst Frage von Bommi1961Batch & Shell21 Kommentare

Hallo zusammen, ich muss den Inhalt einer Excel Datei (Mappe1) mit dem Daten einer Text Datei abgleichen. Die Daten ...

Router & Routing
Subnetzmaske vergrößern
gelöst Frage von groovesurferRouter & Routing18 Kommentare

Hallo, hat jemand schonmal getestet was passiert, wenn man die Subnetzmaske bei laufendem Betrieb (wenn user im Netzwerk verbunden ...