Insérer une image et supprimer la bordure

nak · 15 Mai 2011

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 · 15 Mai 2011

Re : Insérer une image et supprimer la bordure

Hello,

Essaie comme ceci...

Code:

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 · 15 Mai 2011

Re : Insérer une image et supprimer la bordure

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

A+

Insérer une image et supprimer la bordure

nak

XLDnaute Occasionnel

Pièces jointes

Hulk

XLDnaute Barbatruc

nak

XLDnaute Occasionnel

Discussions similaires

Insérer une image et supprimer la bordure

nak

XLDnaute Occasionnel

Pièces jointes

Hulk

XLDnaute Barbatruc

nak

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency