Adapter une image dans une cellule

joums · 14 Juillet 2010

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

Code:

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 · 14 Juillet 2010

Re : Adapter une image dans une cellule

Hello,

Comme ça...

Code:

    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 · 15 Juillet 2010

Re : Adapter une image dans une cellule

Hulk à dit:

Hello,

Comme ça...

Code:

    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

Adapter une image dans une cellule

joums

XLDnaute Occasionnel

Hulk

XLDnaute Barbatruc

joums

XLDnaute Occasionnel

Discussions similaires