The following code fills the textbox with a picture
Code: Select all
Sub ShapePicture()
Dim xSh As Shape
Dim xPic As IPictureDisp
Dim xFileName As String
xFileName = ThisWorkbook.Path & "\Sample.jpg"
Set xPic = LoadPicture(xFileName)
Set xSh = Sheets("Sheet1").Shapes(1)
xSh.Height = xPic.Height / xPic.Width * xSh.Width
Set xPic = LoadPicture("")
Set xPic = Nothing
'xSh.Fill.UserPicture xlNone
xSh.Fill.UserPicture xFileName
'xPic.TextureTile = msoFalse
'xPic.Fill.Solid
End Sub