Insert Image to shape

[MarkOW]

Hi everyone,

Hopefully an easy one for someone to help me with.

Can anyone supply the VBA to insert an image from file into a selected shape this is what the recorder gave me.
I would like the user to be able to choose an image from file and not restrict them to a pre-defined name.

Sub Stage1a()
'
' Stage1a Macro
'


'
    ActiveSheet.Shapes.Range(Array("Rectangle 27")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .PresetTextured msoTexturePapyrus
        .TextureTile = msoTrue
        .TextureOffsetX = 0
        .TextureOffsetY = 0
        .TextureHorizontalScale = 1
        .TextureVerticalScale = 1
        .TextureAlignment = msoTextureTopLeft
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture "C:\Users\Pictures\IMG_20180510_102823.jpg"
        .TextureTile = msoFalse
    End With
End Sub

Many thanks
Mark

(Excel 2013)

 

[jasonb75]

See if this works, not tested.

Sub Stage1a()
'
' Stage1a Macro
'


'
    ActiveSheet.Shapes.Range(Array("Rectangle 27")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .PresetTextured msoTexturePapyrus
        .TextureTile = msoTrue
        .TextureOffsetX = 0
        .TextureOffsetY = 0
        .TextureHorizontalScale = 1
        .TextureVerticalScale = 1
        .TextureAlignment = msoTextureTopLeft
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        With Application.FileDialog(msoFileDialogOpen) 
            .AllowMultiSelect = False
            .Show 
            Selection.ShapeRange.Fill.UserPicture .SelectedItems(1) 
         End With
        .TextureTile = msoFalse
    End With
End Sub

If that doesn't work then it may be a case of assigning the file path of the picture to a string variable before starting to work 'With' the shape.

 

[MarkOW]

Hi jasonb75,

Thanks for the swift reply.

This worked thanks for the help.

Mark