Vampirelo
Messages postés10Date d'inscriptionjeudi 3 juillet 2008StatutMembreDernière intervention13 janvier 2009
-
12 déc. 2008 à 14:05
cs_Orohena
Messages postés577Date d'inscriptionvendredi 26 septembre 2008StatutMembreDernière intervention20 novembre 2010
-
15 déc. 2008 à 19:14
Bonjour à tous,
Point de base, je suis sur Excel et Powerpoint 07.
Mon problème :
Je veux que depuis ma macro Excel, j'ouvre un fichier ".pptm" et modifie les valeurs de ses Controls.
Pour la première partie, c'est à dire l'ouverture de mon fichier, pas de souci.
Mais je n'arrive pas à trouver la syntaxe qui me permet de toucher aux propriétés de mes Controls.
Ex simple :
Sub Ouvr_PPT()
Dim PptDoc As PowerPoint.Presentation
Dim PptApp As Variant
Set PptApp = CreateObject("Powerpoint.Application")
'L appli est visible
PptApp.Visible = msoTrue
Set PptDoc = PptApp.Presentations.Open(Filename:="C:\Mes documents\Fiche Action 1.pptm")
'Partie qui ne m'interpelle : j'aimerai que la caption de LabelPPT prenne la valeur de LabelXLS
et là je bloque car avec tout ce que je teste il me bloque.
Et comme l'enregistreur de macro est désactivé dans Powerpoint 2007, je ne peux même pas utilisé cette astuce pour voir la syntaxe ...
Vampirelo
Messages postés10Date d'inscriptionjeudi 3 juillet 2008StatutMembreDernière intervention13 janvier 2009 15 déc. 2008 à 10:38
Bonjour Orohena,
Tout d'abord merci pour ta réponse
Quand je teste la syntaxe que tu proposes (PptDoc.ActivePresentation.Slides(1).Shapes("LabelPPT").Width = ...), j'ai le message suivant :
"Erreur de compilation :
Membre de méthode ou de données introuvable"
Par contre, j'ai voulu testé la propriété "width" avec ce que j'avais avant (càd sans le "ActivePresentation") et ça marche nikel.
Mais pour modifier la "Caption", je ne trouve pas la bonne syntaxe...
cs_Orohena
Messages postés577Date d'inscriptionvendredi 26 septembre 2008StatutMembreDernière intervention20 novembre 20104 15 déc. 2008 à 19:14
Bonjour vampirelo
Tu as raison, PptDoc est déjà un objet Présentation, donc PptDoc.ActivePresentation ne veut rien dire.
Pour changer le Caption, c'est la galère.
Quand j'ouvre l'objet Slide1 dans l'explorateur d'objets, je vois bien Label1, mais je n'ai pas trouvé la syntaxe pour créer une instance de Label1 à partir d'un objet Presentation (=PptDoc). Une chose est sûre, c'est que ce Label1 a bien une propriété Caption, puisque dans le module Slide1, l'instruction Label1.Caption = "test" fonctionne bien.
J'ai bien sûr essayé l'enregistreur de macro, mais il n'enregistre pas la modification du Caption.
Si je trouve quelquechose, je te recontacte.