Discussion :

[mr_hodor]

Salut tout le monde

Mon problème est le suivant : je souhaite modifier la taille d'un texte contenu dans un tableau ppt. Mon code fait depuis excel est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 nb_slide = ppt.ActivePresentation.Slides.Count
nbshpe = pres.Slides(nb_slide).Shapes.Count
 
pres.Slides(nb_slide).Shapes(nbshpe).TextFrame.TextRange.Font.Size = 10

L'éditeur VBA me renvoie le message suivant
"La valeur tapée est en dehors des limites."

Je cherche simplement a mettre le contenu de mon tableau (deja importé sous ppt) a la taille de police 10, je ne comprend donc pas pourquoi j'ai ce message

Merci a ceux qui m'ont lu et a ceux qui se donneront la peine d'essayer de m'aider

[PMO2017]

Bonjour,

Peut être comme cela

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
Sub zz()
Dim SH As Shape
Dim bool As Boolean
 
nb_slide = ActivePresentation.Slides.Count
nbshpe = ActivePresentation.Slides(nb_slide).Shapes.Count
 
Set SH = ActivePresentation.Slides(nb_slide).Shapes(nbshpe)
 
If SH.TextFrame.TextRange.Text = "" Then
  bool = True
  SH.TextFrame.TextRange.Text = "texte temporaire"  'on met un texte quelconque momentanément
End If
 
SH.TextFrame.TextRange.Font.Size = 10
 
If bool Then SH.TextFrame.TextRange.Text = ""
End Sub

Chez moi, si il n'y a aucun texte, le Font.Size n'est pas appliqué (rien ne se fait mais je n'ai pas de message d'erreur).