Power Point Aligner un objet (VBA)

bluesky12000

XLDnaute Junior
Bonjour à tous,

Dans PowerPoint, je cherche à aligner en bas tous les objets répondant à un certain nom dans toute la présentation.
Le code ci-dessous fonctionne très bien si j'enlève la référence (L) après le Then mais dans ce cas tous les objets sont alignés en bas. Or je voudrais que seulement ceux ayant le nom défini par sn soient déplacés.

Merci beaucoup

VB:
Sub aligner()
 Dim sld As Slide
 Dim L As Long
 Dim sn As String
 sn = InputBox("Entrez le nom de la forme")
 On Error Resume Next
 For Each sld In ActiveWindow.Selection.SlideRange
 For L = sld.Shapes.Count To 1 Step -1
 If sld.Shapes(L).Name = sn Then sld.Shapes(L).Range.Align msoAlignBottoms, msoTrue
 Next L
 Next sld
 End Sub
 

Discussions similaires

Statistiques des forums

Discussions
314 708
Messages
2 112 097
Membres
111 416
dernier inscrit
philipperoy83