Déplacer un objet a un endroit précis

[MJ13]

Bonjour

Savez vous en VBA, comment déplacer un objet (un rectangle) pour l'aligner sur une cellule (en L5 par exemple)?

Merci d'avance.

 

[wilfried_42]

Re : Déplacer un objet a un endroit précis

bonjour

voici un procedure qui alligne une image selon une cellule

                        With ActiveSheet.Shapes("Image" & cellule.Address)
                            .LockAspectRatio = msoFalse
                            .Left = cellule.Left
                            .Top = cellule.Top
                            .Width = cellule.Width
                            .Height = cellule.Height
                        End With

 

[MJ13]

Re : Déplacer un objet a un endroit précis

Bonjour

Merci beaucoup Wilfried pour ce code qui m'a bien aidé.