Discussion :

[aperot]

Bonjour, voici mon problème :
Dans powerpoint 2003, J'ai un groupe formé d'une image et d'un texte.
Je veux changer en VBA la police du texte.
Quand j'enregistre une macro quand j'effectue la manip j'obtiens :

Code :

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

1
2
  ActiveWindow.Selection.SlideRange.Shapes("Group 20").Select
   ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Name = "Architects Daughter"

mais quand je lance la macro j'obtiens une erreur:
Textframe(unknowm member): Invalide request. The type of shape cannot have a texteRange

Comment faire ce changement de police en VBA sans dégrouper ?

Je vous remercie.

[QuestVba]

Bonjour,

J'ai déjà utiliser un truc comme celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Change_Texte()
Dim diapo, forme
For Each diapo In ActivePresentation.Slides
     For Each forme In diapo.Shapes
        With forme.TextFrame.TextRange
            .Text = "Texte est modifié"
        End With
     Next forme
Next diapo
End Sub

[aperot]

bonjour,
j'ai malheureusement le même message d'erreur !

[QuestVba]

Bonjour,

Aurais-tu une copie que je pourrais "massacrer" ? Sans données confidentielles évidemment !

[aperot]

Bonjour,
j'essaye de faire une petite macro qui permet de changer la police dans le cas où une zone de texte a été groupée avec une image, ces groupes ayant une animation.
Si je dégroupe, je perds mon animation.

[aperot]

je me répond à moi-même :
voici une macro qui répond à ma question (http://www.pptfaq.com/FAQ00600_Chang...ngrouping-.htm)

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
22
23
Sub change_police()
Dim diapo As Slide
Dim forme As Shape
Dim X As Long
 
For Each diapo In ActivePresentation.Slides
        For Each forme In diapo.Shapes
            With forme
                Select Case .Type
                    Case Is = msoGroup
                        For X = 1 To .GroupItems.Count
                            If .GroupItems(X).HasTextFrame Then
                                If .GroupItems(X).TextFrame.HasText Then
                                    .GroupItems(X).TextFrame.TextRange.Font.Name = "Bradley Hand ITC"
                                End If
                            End If
                        Next X
                End Select
            End With
        Next forme
Next diapo
 
End Sub

Merci pour les réponses.

[QuestVba]

N'oublie pas