Macro Excel 2007 sur des images

weedhopper Messages postés 4 Date d'inscription vendredi 15 septembre 2006 Statut Membre Dernière intervention 19 février 2012 - 26 janv. 2009 à 19:27
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 - 26 janv. 2009 à 22:30
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

1 réponse

cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
26 janv. 2009 à 22:30
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
0