Sub add_shape_With_Image()
Dim shap As Shape
With ActiveSheet
Set shap = .Shapes.AddShape(msoShapeRectangle, 270.6, 312, 154.8, 101.4)
With shap
.Name = "toto"
.Fill.Visible = msoTrue
.Fill.UserPicture "C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg"
End With
End With
End Sub