Discussion :

[Noura25]

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

[m@rina]

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