VBA insert picture as fill

[Rock_Doctor]

So I have an excel sheet with formatted shapes with which I use fill to populate the shapes with pictures for a report.

I have the basic macro code sorted to do this with a button but when I try to substitute the file path with a cell on the spreadsheet containing the file path it results in a fill object fail.

Here is the code that works:

Sub Macro1()'
' Macro1 Macro


' 
    ActiveSheet.Shapes.Range(Array("Rectangle 10")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture _
        "Filepath"
        .TextureTile = msoFalse
        .RotateWithObject = msoTrue
        
    End With
End Sub

After trying to insert the cell value:

Sub Macro1()'
' Macro1 Macro


'
    PictureFileName = Range("V11").Value
    
    ActiveSheet.Shapes.Range(Array("Rectangle 10")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture _
        PictureFileName
        .TextureTile = msoFalse
        .RotateWithObject = msoTrue
        
    End With
End Sub

I have tried adding quotations in the cell value as well thinking that was the issue.

Any help is much appreciated!

 

[Worf]

This worked for me:

Sub Macro1()
With ActiveSheet.Shapes("rectangle 10").Fill
    .Visible = msoTrue
    .UserPicture CStr([j53])                    ' cell J53
    .TextureTile = msoFalse
    .RotateWithObject = msoTrue
End With
End Sub

 

[Rock_Doctor]

Excellent! Thank you Worf, works perfectly!

 

[Worf]

You are welcome and thanks for the feedback!

 

[Boechat]

I am trying the same thing, and upon trying Worfs sollution I keep getting "Method 'UserPicture' of object 'FileFormat' failed."
Any ideas?

 

[Rock_Doctor]

I am trying the same thing, and upon trying Worfs sollution I keep getting "Method 'UserPicture' of object 'FileFormat' failed."
Any ideas?

What format are your pictures? I used jpeg.

 

[Boechat]

Thank you! I was using png files but referring the wrong extension!
Solved for me