Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/06/2008 par
'
Dim monimage As String
[B][COLOR=Blue] monimage = "test.gif"[/COLOR][/B]
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
Selection.ShapeRange.Fill.Transparency = 0#
[B][COLOR=Blue]Selection.ShapeRange.Fill.UserPicture _
"C:\Documents and Settings\Toto\Mes documents\Mes images\" & monimage[/COLOR][/B]
End Sub