VBA Shape.Fill.UserPicture doesn't load the picture

Asked May 22 '18 at 13:44

Active May 22 '18 at 13:59

Viewed 2,236 times

I am using the Fill.UserPicture property to change the image displayed in a shape but the image doesn't get redrawn/refreshed. If I manually right-click the shape and do Change Picture and then paste in the same path and file name (copied from the VBA) it works.

this SO page says that it worked for them

Any reason why this might be?

I have tried making the Fill not visible first. I'm using Excel 2016.

EDIT: Added the code

Dim shpImage As Shape
Dim sNewImagePathAndName As String

sNewImagePathAndName = GetImageFromWebsite(sLineNumber)

Set shpImage = ThisWorkbook.Worksheets("Images").Shapes("shpTemplateImage")

With shpImage
    If sNewImagePathAndName <> vbNullString Then
        .Fill.Visible = msoFalse
        .Fill.UserPicture PictureFile:=sNewImagePathAndName
        Debug.Print sNewImagePathAndName
        .Fill.Visible = msoTrue
    End If
End With

Example of sNewImagePathAndName: "H:\My Documents\Project One\Development\Visual Stock Pack\TS03N50NBLK_Large_F_1.jpg"

edited Jul 09 '18 at 19:34

Community

asked May 22 '18 at 13:44

ChipsLetten

2,923
1
11
28

2

Can you show the code that does not work for you? – Vityata May 22 '18 at 13:47
1

Please re-read [mcve]. – Mathieu Guindon May 22 '18 at 13:50
1

It turns out I had inserted a Picture and not a Shape with a Picture inside it. So the code now works. – ChipsLetten May 22 '18 at 13:55
Should this get closed or kept if I make this the answer? – ChipsLetten May 22 '18 at 14:52

VBA Shape.Fill.UserPicture doesn't load the picture

0 Answers0