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 111 Downloads 25

VBA-Excel Graphics
ANmarAmdeen
791
Attachments
Revisions

v1.0