Discussion :

[hedidev1]

Bonjour,

comment tester si il y a une zone de titre ?

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
24
25
26
Function bPptType(oPptDoc As Object, lSlide As Long, _
                    Optional sTexte1 As String, Optional sTexte2 _
                    As String, Optional sTexte3 As String, Optional sTexte4 As String) As Boolean
Dim bTitreExist As Boolean
bPptType = True
bTitreExist = False
On Error GoTo errorHandler
If oPptDoc.Slides(lSlide).Shapes.Title.TextFrame.TextRange Like "*" Then
    oPptDoc.Slides(lSlide).Shapes(2).TextFrame.TextRange = sTexte1
    oPptDoc.Slides(lSlide).Shapes(3).TextFrame.TextRange = sTexte2
    oPptDoc.Slides(lSlide).Shapes(4).TextFrame.TextRange = sTexte3
    oPptDoc.Slides(lSlide).Shapes(5).TextFrame.TextRange = sTexte4
    oTitreExist = True
End If
If bTitreExist = False Then
    oPptDoc.Slides(lSlide).Shapes(1).TextFrame.TextRange = sTexte1
    oPptDoc.Slides(lSlide).Shapes(2).TextFrame.TextRange = sTexte2
    oPptDoc.Slides(lSlide).Shapes(3).TextFrame.TextRange = sTexte3
    oPptDoc.Slides(lSlide).Shapes(4).TextFrame.TextRange = sTexte4
End If
Exit Function
 
errorHandler:
    bPptType = False
 
End Function

[m@rina]

Pour

Pour tester uniquement si la diapo contient une zone réservée au titre (sans vérifier si elle contient du texte) c'est (par exemple pour la première diapo) :

Code :

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

If ActivePresentation.Slides(1).Shapes.HasTitle

m@rina

[hedidev1]

super, merci !