Discussion :

[webosama80]

Bonjour à tous,

J'ai un PPT avec plusieurs images dont les caractéristiques "alternativetext" sont remplis avec un certain nombre de caractères dessus.

Je souhaiterais modifier un caractère bien précis (dans mon cas c'est remplacer un . par une ,) dans ce "alternativetext", et cela sur chaque image de mon PPT

Comment peut-on faire SVP ?

[webosama80]

Bon pour ceux que cela intéresse j'ai trouvé la solution :

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
27
28
 
Sub LancerNettoyerImages()
 
' ===== déclaration des variables =====
Dim objSld As Slide         ' va permettre de parcourir les diapositives du diaporama
Dim objShp As Shape         ' va permettre de parcourir les éléments d'une diapositive
Dim oSource As Presentation
 
'====== mettre le slide actif comme page active
Set myslide = ActiveWindow.Selection.SlideRange
 
' ===== boucle ======
' on boucle sur l'ensemble des diapositives
    For Each objSld In ActivePresentation.Slides
        objSld.Select
        ' on boucle sur l'ensemble des shapes
        For Each objShp In objSld.Shapes
            objShp.Select
            objShp.AlternativeText = Replace(objShp.AlternativeText, _
            ".", ",")
        Next objShp
    Next objSld
Set oSource = Nothing
 
'====== revenir sur le slide actif
myslide.Select
 
End Sub

Merci quand même

[stroumfette44]

Bien que ce post date de matusalem, il m'a été bien utile aujourd'hui après 2 bonnes heures de galère
bonnes fêtes !