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
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