ShapeRange_BG

Replaces the background fill of any shape in Excel with an image
Not Ready yet, needs work
Shape should already be selected prior to call


Public

Not Tested

My Own Work
Sub ShapeRange_BG(BGJpgImage)
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .RotateWithObject = msoTrue
        .UserPicture BGJpgImage
        .TextureTile = msoFalse
    End With
    Selection.ShapeRange.Fill.Visible = msoFalse
End Sub

BGJpgImage

Sheet1.Shape1.Select
ShapeRange_BG "D:\Clouds\Dropbox\CameraQosmioTV\Move2AmTV\2021-02-13 13.11.41.jpg"

Views 673 Downloads 168

VBA-Excel Graphics
ANmarAmdeen
810
Attachments
Revisions

v1.0