Modifier taille ecriture lors d'un export dans PPT via Excel VBA
Bonjour,
Malgré tous les posts concernant la question suivante :
Comment changer la taille de la police d'écriture lorsqu'on exporte des cellules multiples d'Excel vers Powerpoint ?
Je n'ai pas su trouver mon bonheur.
J'ai dans ma feuille 1 Excel des données allant de I21 à O44, certaines cellules sont fusionnées (Titres).
Au travers d'une macro, j'exporte cette zone vers un slide PPT mais une fois exportée, la taille des caractères est trop grande et je ne peux pas redimensionner mon tableau.
Pour cela, il faudrait que la taille d'écriture soit de 5 alors que dans Excel, elle est de 14 (titre) et 12 pour le reste.
Si je modifie directement la taille dans mon PPT, je peux redimensionner mon tableau sans problème.
Voici le code Vba XLS :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| ' Zone de la feuille Excel "Fiches de progrès" à copier
Sheets("Accueil").Range("i23:o44").Copy
'Coller les cellules Excel "Feuil3" dans Powerpoint diapo 3
Pres.Slides(3).Shapes.Paste
' on met en forme le tableau
With Pres.Slides(3).Shapes(3)
.Name = "Tableau" 'personnaliser le nom de l'image insérée
.Left = 300 'position horizontale dans le slide
.Top = 95 'position verticale dans le slide
.Height = 140 'hauteur image
.Width = 300 'largeur image
End With |
Cordialement,
Graphikris
