Excel 365 - How to Insert a Picture as a cell background?

Nifty piece of code. Though perhaps one day Excel will be updated so adding a picture as a cell background will be a simple function.

Hi,

NEW

scenario

Add picture in cell C3 (picture width = cell width / Ratio = True) as background (note: embedded in a shape)

before

.

after

.

======================

vba macro

Option Explicit

Dim ws As Worksheet

Dim r As Range

Dim shp As Shape

Dim sURL As String

'

Sub Add_Pic_in_Cell_C3()

'## 06/03/2024 ##

sURL = "https://img.freepik.com/free-photo/river-flowing-through-trees-mountains-scotland_181624-24054.jpg"

Set ws = ActiveSheet

Set r = ws.Range("C3")

If ws.Shapes.Count > 0 Then

For Each shp In ws.Shapes

If Not Intersect(shp.TopLeftCell, r) Is Nothing Then

shp.Delete

End If

Next shp

End If

Set shp = ws.Shapes.AddPicture(sURL, False, True, 0, 0, -1, -1)

With shp

.LockAspectRatio = msoTrue

.Left = r.Left

.Top = r.Top

.Width = r.Width

.TopLeftCell.RowHeight = .Height

End With

shp.Delete

Set shp = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, r.Left, r.Top, r.Width, r.Height)

shp.Line.Visible = msoFalse

With shp.Fill

.Visible = msoTrue

.UserPicture sURL

.TextureTile = msoFalse

.RotateWithObject = msoTrue

.Transparency = 0.6

End With

End Sub

=====================

NOTE:

1. the basic idea from this link https://www.mrexcel.com/board/threads/png-transparency.1137472/
2. replace sURL with a picture from your pc

sample:

"C:\Users\otaso\Pictures\Tangram\cat.jpg"

Thank you for the response and the code.

I used the code and it ran as expected, now there is a picture and text both in the same cell. As you can see from the image below, the cell contains the text and the picture.

This is as close as I have come so far.

However, the text is covered by the picture.

Is there a way to place the text in front of the picture?