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

CodeFunctionName
What is this?

Public

Not Tested

Original 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 804

Downloads 251

CodeID
DB ID