Adapter une image dans une cellule

[joums]

Bonjour,

A l'aide d'une macro, j'insère une image dans une cellule

Je souhaite que cette image s'adapte à la taille de la taille.
J'ai utliser le code ci-dessous mais ca ne marche pas

Set Mycell = Range("B15")
Mycell.Select
Set MyPicture = ActiveSheet.Pictures.Insert(image)
With MyPicture.ShapeRange
LockAspectRatio = msoFalse
.Height = Mycell.Height
.Width = Mycell.Width

Merci de votre aide

 

[Hulk]

Re : Adapter une image dans une cellule

Hello,

Comme ça...

    Application.ScreenUpdating = False
    
    Set MyCell = Range("B15")

    MyCell.Select
    [B]Image = "F:\Mes images\Phototchoules\Fonds d'écran\Bass1.jpg" 'À adapter[/B]
    
    Set MyPicture = ActiveSheet.Pictures.Insert(Image)
    
    With MyPicture
        LockAspectRatio = msoFalse
        [B].Left = MyCell.Left[/B]
        [B].Top = MyCell.Top[/B]
        .Width = MyCell.Width
        .Height = MyCell.Height
    [B]End With[/B]
    
    Application.ScreenUpdating = True

Apparemment tu avais oublié le End With et il faut indiquer le chemin de l'Image.

 

[joums]

Re : Adapter une image dans une cellule

Hello,

Comme ça...

    Application.ScreenUpdating = False
    
    Set MyCell = Range("B15")

    MyCell.Select
    [B]Image = "F:\Mes images\Phototchoules\Fonds d'écran\Bass1.jpg" 'À adapter[/B]
    
    Set MyPicture = ActiveSheet.Pictures.Insert(Image)
    
    With MyPicture
        LockAspectRatio = msoFalse
        [B].Left = MyCell.Left[/B]
        [B].Top = MyCell.Top[/B]
        .Width = MyCell.Width
        .Height = MyCell.Height
    [B]End With[/B]
    
    Application.ScreenUpdating = True

Apparemment tu avais oublié le End With et il faut indiquer le chemin de l'Image.

Bonjour,
Merci pour votre réponse,
effectivement j'avais oublié de mettre le End With...
cela marche parfaitement
Encore merci
A bientôt