Insérer une image et supprimer la bordure

[nak]

Bonjour à tous,

J'essai d'insérer une image sous Excel 2007 mais malheureusement je n'arrive pas à supprimer la bordure du rectangle. Il y a un plantage avec la fonction With Shape...
Pouvez vous me conseiller SVP ?

Merci

Dim strImage As String
Dim Sh As Shape
Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 30, 40, 120, 25)
'Ici j'essai de supprimer la bordure et le fond du restangle
'With Shape
'.Fill.Visible = msoFalse
'.Line.Visible = msoFalse
'End With
strImage = ThisWorkbook.Path & "\Capture.JPG"
Sh.Fill.UserPicture strImage

 

[Hulk]

Re : Insérer une image et supprimer la bordure

Hello,

Essaie comme ceci...

Dim strImage As String
    Dim Sh As Shape
    Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 30, 40, 120, 25)
    strImage = ThisWorkbook.Path & "\Capture.JPG"
    Sh.Line.Visible = msoFalse
    Sh.Fill.UserPicture strImage

 

[nak]

Re : Insérer une image et supprimer la bordure

Cool ça fonctionne.
Merci pour ton aide l'incroyable Hulk

A+