Macro Excel 2007 sur des images

Question

Bonjour à vous.

Je suis en train de fignoler une macro sous excel 2007 permettant d'integrer des images dans des cellules bien définies.

Jusque là, pas de soucis.

Par contre, lorsque je trie mes lignes, les images ne suivent pas...idem lorsque je fait un filtre.

Après quelque recherches, je me suis rendu compte qu'ont peut solutionner çà en jouant sur les propriétés de l'image, c'est à dire :
-clic droit sur l'imag
-taille et propriétés
-propriétés
-je coche "déplacer et dimensionner avec les cellules".

Le problème pour moi, c'est comment faire pour coder çà dans ma macro :

    Dim chemin
    On Error Resume Next
    For i = 7 To 25000
        datat = Cells(i, 9).Value        If datat "" Or datat " " Then Exit For
        datat = Val(datat)
        chemin = "C:\_" & datat & "FR.jpg"
        Cells(i, 48).Select
        ActiveSheet.Pictures.Insert(chemin).Select
                 
        With Selection.ShapeRange
            .LockAspectRatio = msoFalse
            .Left = ActiveCell.Left
            .Top = ActiveCell.Top
        End With
    Next
    End Sub

Merci à vous pour vos réponses

cs_Orohena · Answer

Bonjour weedhopper

Remplace ton bloc With / End With par :

    With Selection
       .ShapeRange.LockAspectRatio = msoFalse
        ShapeRange.Left = ActiveCell.Left
        ShapeRange.Top = ActiveCell.Top
        .Placement = xlMoveAndSize
    End With

L'équivalent vba de la commande "déplacer et dimensionner avec les cellules" est en gras.

Amicalement

Macro Excel 2007 sur des images

1 réponse

Votre réponse

Discussions similaires