Bonjour à tous,
Je bloque sur une macro de positionnement de toutes les images d'une colonne sur le bord gauche de leur cellule. Basé sur d'autre macros similaires, j'ai pu établir le code ci-dessous, il bloque malheureusement à la ligne indiquée (forcément la plus importante). Le but étant de sélectionner les images une à unes et de leur appliquer cette mise en forme.
Bien sur si vous avez un moyen d'appliquer la mise en forme sur toutes les images de la colonne directement, cela me conviendrai encore plus.
Merci d'avance!
Je bloque sur une macro de positionnement de toutes les images d'une colonne sur le bord gauche de leur cellule. Basé sur d'autre macros similaires, j'ai pu établir le code ci-dessous, il bloque malheureusement à la ligne indiquée (forcément la plus importante). Le but étant de sélectionner les images une à unes et de leur appliquer cette mise en forme.
Code:
Sub colonneImage()
Dim Y As Integer
With ActiveSheet
Y = Range("A65536").End(xlUp).Row
End With
Dim Sh As Shape
With ActiveSheet
For Each Sh In .Shapes
If Not Application.Intersect(Sh.TopLeftCell, .Range("B1:B" & Y)) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left ' BLOQUANT!!!!
End With
End If
Next Sh
End With
End Sub
Bien sur si vous avez un moyen d'appliquer la mise en forme sur toutes les images de la colonne directement, cela me conviendrai encore plus.
Merci d'avance!