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
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