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
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
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"
ShapeRange_BG "D:\Clouds\Dropbox\CameraQosmioTV\Move2AmTV\2021-02-13 13.11.41.jpg"
Views 779
Downloads 233
CodeID
DB ID
ANmarAmdeen
602
Revisions
v1.0
Saturday
March
27
2021