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

  1. #1
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    avril 2019
    Messages
    158
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : avril 2019
    Messages : 158
    Points : 100
    Points
    100
    Par défaut Macro pour insérer un titre sur PowerPoint au départ d'Excel
    Bonjour à tous,

    J'ai une macro qui me permet d'ajouter des diapos et des graphs dans un PowerPoint je souhaiterais également ajouter des titres à chaque slide mais je ne sais pas comment faire je n'ai rien trouvé à ce sujet auriez-vous une piste pour me guider ?

    Merci d'avance pour vos réponses

  2. #2
    Membre émérite Avatar de Zekraoui_Jakani
    Homme Profil pro
    Inscrit en
    novembre 2013
    Messages
    1 472
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : novembre 2013
    Messages : 1 472
    Points : 2 258
    Points
    2 258
    Par défaut
    Vous pouvez utiliser cet exemple dans PowerPoint, moyennant un bouton de commande:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Sub TitreDuSlide()
     
        Dim Annee As String
        Dim Trimestre As String
        Dim LeTitre As Font
     
        Set LeTitre = ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Font
        'Capter le titre à utiliser
        Annee = InputBox("Encodez l'Année :")
        Trimestre = InputBox("Encodez le Trimestre")
     
        'vérifier l'existene ou non du titre
        If ActivePresentation.Slides(1).Shapes.HasTitle = msoTrue Then
            ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text = "Revenus de l'année " & Annee & "; Trimestre " & Trimestre
        Else
        'Ajouter le itre
            ActivePresentation.Slides(1).Shapes.AddTitle.TextFrame.TextRange.Text = "Revenus de l'année " & Annee & "; Trimestre " & Trimestre
        End If
            LeTitre.Size = 23
     
    End Sub

  3. #3
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    avril 2019
    Messages
    158
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : avril 2019
    Messages : 158
    Points : 100
    Points
    100
    Par défaut
    Justement je souhaite le faire depuis Excel et pas depuis PowerPoint hier soir j'ai trouvé quelques pistes mais ce n'est pas abouti je vais continuer à me torturer les méninges.

    Merci quand même pour votre réponse.

  4. #4
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur informatique indépendant
    Inscrit en
    novembre 2003
    Messages
    16 770
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur informatique indépendant
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 16 770
    Points : 48 237
    Points
    48 237
    Billets dans le blog
    91
    Par défaut
    Salut.

    Pour le faire depuis Excel, je préconise d'apprendre d'abord à le faire en PowerPoint en utilisant des objets PP dans son code. Pour le faire au départ d'Excel par la suite, il suffira d'activer la bibliothèque Power Point et de rediriger correctement les objets lors de l'affectation des variables (notamment, principalement et probablement uniquement, la variable pointant vers l'application PowerPoint).
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Je mets SYTEMATIQUEMENT un lorsque la réponse ne propose pas un tableau structuré alors que ce dernier devrait être utilisé (par ex en travaillant sur la colonne entière).
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

Discussions similaires

  1. Problème pour insérer carte interactive sur PowerPoint
    Par idiart33 dans le forum Powerpoint
    Réponses: 0
    Dernier message: 11/12/2018, 22h16
  2. [XL-2010] Macro Excel pour se positionner sur une valeur d'une liste déroulante
    Par benadry dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 18/09/2013, 13h57
  3. Macro Excel pour les doublons sur 3 mois glissants
    Par greenlightII dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 21/05/2013, 15h49
  4. [VBA-PP] macro pour insérer des images dans PowerPoint
    Par mashpro dans le forum VBA PowerPoint
    Réponses: 4
    Dernier message: 01/08/2006, 23h56
  5. Aide sur les macros Excel pour recopie auto de données
    Par nicoduhavre dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/11/2005, 09h38

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