Discussion :

[myk636]

Bonjour,
et merci à tous pour l'aide que vous pourrez m'apporter.

Je souhaite adapter la taille d'une image à la taille exacte d'une cellule. J'ai trouvé de nombreux codes sur Internet mais aucun ne fonctionne sur ce que je souhaite faire.

Voici le bout de code que j'utilise pour copier mon image :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sheets("ECHFMT").Shapes("ImageSA1").Copy
Sheets("SARECAP").Range("E2").PasteSpecial xlPasteAll

En résumé je copie une image (ImageSA1) qui se trouve dans la feuille ECHFMT et je la copie dans la cellule E2 de la feuille SARECAP,
mais j'aimerais que cette image s'adapte exactement à la taille de la cellule concernée (E2)
Sachant que je reproduis cette manipulation pour une 50aine d'images dans diverses cellules

C'est pour résumer un ensemble d'images dans une même colonne en fait.

J'ai déjà perdu presque 2h à essayer des codes du Net mais aucun ne réalise l'action souhaitée (je dois mal m'y prendre)

Merci infiniment pour votre aide

Mic

[patricktoulon]

bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
    Sheets(2).Activate
    Sheets(1).Shapes("Rectangle 1").Copy
    With Sheets(2)
        .Range("A2").Select
        .Paste
        .Shapes(.Shapes.Count).Width = .Range("A2").Width
        .Shapes(.Shapes.Count).Height = .Range("A2").Height
    End With
End Sub

[myk636]

Merci beaucoup de votre aide

Mick