<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"><channel><category>pcsoft.fr.windev</category><copyright>Copyright 2026, PC SOFT</copyright><lastBuildDate>2 Jun 2020 20:34:08 Z</lastBuildDate><pubDate>5 Oct 2015 12:13:10 Z</pubDate><description>Bonjour au forum,&#13;
&#13;
je cherche à piloter PowerPoint afin de trouver et remplacer certains textes dans un slide par des valeurs saisies dans mon application WD.&#13;
Je n'ai pas de souci pour ouvrir le Powerpoint par OLE mais je ne sais pas comment transposer le code VB ci-dessous dans le langage OLE de Windev. Notamment, la partie où on boucle sur les présentations, les slides puis les objets.&#13;
De la même façon, comment déclarer, en OLE, un slide (par exemple) pour l'utiliser ensuite dans une boucle&#13;
Est-ce que quelqu'un sait comment faire?&#13;
&#13;
Voici le code trouvé qui permet de faire cela :&#13;
&#13;
Sub Global_1()&#13;
    Dim oPres As Presentation&#13;
    Dim oSld As Slide&#13;
    Dim oShp As Shape&#13;
    Dim FindWhat As String&#13;
    Dim ReplaceWith  As String&#13;
    FindWhat = "This"&#13;
    ReplaceWith = "That"&#13;
    For Each oPres In Application.Presentations&#13;
       For Each oSld In ActivePresentation.Slides&#13;
        &#13;
                    For Each oShp In oSld.Shapes&#13;
                    &#13;
                    &#13;
                    &#13;
                    Call FindnRe(oShp, FindWhat, ReplaceWith)&#13;
            Next oShp&#13;
        Next oSld&#13;
    Next oPres&#13;
&#13;
End Sub&#13;
&#13;
Merci de votre attention&#13;
Clark :)</description><ttl>30</ttl><generator>WEBDEV</generator><language>fr_FR</language><link>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole/read.awp</link><title>PowerPoint OLE</title><managingEditor>moderateur@pcsoft.fr (El moderador)</managingEditor><webMaster>webmaster@pcsoft.fr (El webmaster)</webMaster><item><author>matthieu.gonon</author><category>pcsoft.fr.windev</category><comments>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-240112/read.awp</comments><pubDate>2 Jun 2020 20:34:08 Z</pubDate><description>je cherche a mettre une présentation PowerPoint dans une appli une fenêtre pouvez-vous m'aider&#13;
cdlt</description><guid isPermaLink="true">https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-240112/read.awp</guid><link>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-240112/read.awp</link><source url="https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole/read.awp">PowerPoint OLE</source><title>Re: PowerPoint OLE</title></item><item><author>vincent.dubreil</author><category>pcsoft.fr.windev</category><comments>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-187726/read.awp</comments><pubDate>7 Oct 2015 11:21:36 Z</pubDate><description>C'est exactement ce qu'il me fallait. Je n'avais pas du tout pensé au fait d'utiliser plusieurs objets automation! :o&#13;
Ca tombe …</description><guid isPermaLink="true">https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-187726/read.awp</guid><link>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-187726/read.awp</link><source url="https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole/read.awp">PowerPoint OLE</source><title>Re: PowerPoint OLE</title></item><item><author>Jurassic Pork</author><category>pcsoft.fr.windev</category><comments>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-187668/read.awp</comments><pubDate>6 Oct 2015 01:58:32 Z</pubDate><description>hello,&#13;
pour des TextFrames tu peux essayer un code du genre : &#13;
[code:wl]&#13;
objPpt est un objet Automation "Powerpoint.applicati…</description><guid isPermaLink="true">https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-187668/read.awp</guid><link>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole-187668/read.awp</link><source url="https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/187632-powerpoint-ole/read.awp">PowerPoint OLE</source><title>Re: PowerPoint OLE</title></item></channel></rss>
