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
    Candidat au Club
    Femme Profil pro
    Consultante en stratégie
    Inscrit en
    avril 2019
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultante en stratégie
    Secteur : Santé

    Informations forums :
    Inscription : avril 2019
    Messages : 1
    Points : 2
    Points
    2

    Par défaut Copier une cellule excel vers un ppt avec une taille de police précise

    hello !

    Je cherche à copier une cellule excel vers un document powerpoint à un endroit précis de la slide et avec une taille de police précise.
    J'ai trouvé un code qui me permet de réaliser toutes les étapes sauf celle de choisir la taille de police. Pourriez-vous m'aider ?

    Merci

    Voici le code :

    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
    With PptDoc
    'copie la plage de cellules dans la feuille Excel active
    Feuil1.Range("B4").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(2).Shapes.Paste
     
     'compte le nombre de shapes dans le 2eme slide
    'le dernier objet inséré correspond à l'index le plus élevé
    NbShpe = PptDoc.Slides(2).Shapes.Count
     
    With PptDoc.Slides(2).Shapes(NbShpe)
    .Name = "rep1" 'personnaliser le nom de l'image insérée
    .Left = 472 'position horizontale dans le slide
    .Top = 153 'position verticale dans le slide
    .Height = 30 'hauteur image
    .Width = 202 'largeur image
     
    End With
    '(...)
    End With

  2. #2
    Membre actif
    Profil pro
    Inscrit en
    septembre 2007
    Messages
    165
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2007
    Messages : 165
    Points : 261
    Points
    261

    Par défaut

    Bonjour,

    C'est jamais simple le VBA dans PowerPoint. Un Shape ça représente n'importe quel objet. Il faut donc déjà vérifier que cet objet contient un tableau, et ensuite il faut appliquer le format à toutes les zones de texte qui se trouvent dans toutes les colonnes et toutes lignes du tableau, ce qui donne quelque chose comme :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    If pptdoc.Slides(2).Shapes(NbShpe).HasTable Then
        Set tablo = pptdoc.Slides(2).Shapes(NbShpe).Table
            For ligne = 1 To tablo.Rows.Count
                For col = 1 To tablo.Columns.Count
                    tablo.Cell(ligne, col).Shape.TextFrame.TextRange.Font.Size = 30
                Next
            Next
    End If

Discussions similaires

  1. [XL-2003] Macro Copier/Coller données Excel vers document Word avec Signets
    Par Julien91080 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 22/05/2013, 12h28
  2. Réponses: 7
    Dernier message: 20/03/2012, 17h45
  3. Réponses: 3
    Dernier message: 30/11/2011, 10h04
  4. Copie de cellules Excel vers une table Access
    Par pat_che dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/11/2007, 09h17
  5. Importer le contenu d'une cellule Excel vers Access
    Par deaqu1 dans le forum Access
    Réponses: 7
    Dernier message: 05/11/2005, 15h26

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