IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA PowerPoint Discussion :

Macro - Ajout de Slide avec une "disposition"


Sujet :

VBA PowerPoint

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2013
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Macro - Ajout de Slide avec une "disposition"
    Bonjour à tous,

    J'ai parcouru l'Internet avec les mots clés "Macro", "PowerPoint", "disposition" et parfois les 3 en même temps... mais aucune réponse à ma question.

    Vous le savez, il n'y a plus d'enregistreur de Macro dans Powerpoint '07. De ce fait je ne trouve aucune piste pour faire ceci :

    Créer une Slide avec une disposition prédéfinie. Par disposition, j'entends le style/thème que l'on peut affecter à une Slide.

    Je remercie d'avance ceux qui pourront m'éclairer !

  2. #2
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2013
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    En fouillant dans l'explorateur d'objet j'ai trouvé une réponse à ma question, la voici :

    '--- Boucle qui parcours chaque Slide
    Do
    '--- Charge le thème de mon choix
    Ppp.Slides.Range(nbImage).ApplyTheme "C:\Program Files\TEMPLATE_DE_MON_CHOIX.pot"

    '--- Applique la disposition "titre et contenu"
    Ppp.Slides.Range(nbImage).ApplyTheme ("Titre et contenu")

    '--- Décrémente la boucle
    nbImage = nbImage - 1

    Loop While nbImage > 0

    Attention parcontre puisque c'est assez lourd comme traitement, il est surement possible de l'améliorer.

    Bonne journée !

Discussions similaires

  1. Réponses: 2
    Dernier message: 23/04/2008, 12h28
  2. [SQL2K]Requete sur une chaine avec une ou plusieurs quote
    Par tazamorte dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 17/04/2007, 08h22
  3. ajout de données avec une relation N-à-N
    Par yeah_baby64 dans le forum Access
    Réponses: 3
    Dernier message: 28/07/2006, 18h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo