insert Picture

[bluenose5709]

Hi,

I hope that someone may be able to point me in the right direction.

I am working upon a spreadsheet (Excel 365) that has images inserted not cells as can be seen by the cropped image below. this is working fine, however i can't figure out where the image is from...? when selecting the cell it simply says Picture in the formula bar but nothing else. If i download the workbook to my local machine, all cells that had images change to say UNKNOWN!

my question is how do i figure out how th images were put there in the first instance and where are they residing so that i may re-create the same elsewhere / add more cells with images in the same Worksheet...

thank you

 

[jolivanes]

Would this be of any help?

How to know the original path of an inserted image ? | Microsoft Community Hub

Hi all,I have a problem with an Excel file. In this file I used the feature "Insert image above cell" and I chose an image from a local path (on my hard...

techcommunity.microsoft.com

 

[Logit]

Sometimes the path may be stored in the "Alternative Text" field of the image properties. You could query for that data.
I am not aware of any means to determine the path of an image once it has been placed in a worksheet except for the following ...

Alternatively, you could use the following macro to initially select an image to be inserted into a worksheet. This macro accomplishes that chore and
inserts the image path adjacent to the image.

Option Explicit

Sub InsertImageAndRecordPath()
Dim ws As Worksheet
Dim imgPath As String
Dim img As Picture
Dim cell As Range

' Set the worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

' Prompt user to select an image file
imgPath = Application.GetOpenFilename("Image Files (*.jpg; *.jpeg; *.png; *.bmp), *.jpg; *.jpeg; *.png; *.bmp", , "Select an Image")

' Check if the user selected a file If imgPath = "False" Then Exit Sub

' Select the cell where you want to insert the image
Set cell = ws.Range("A1")

' Change this to your desired cell ' Insert the image
Set img = ws.Pictures.Insert(imgPath)
img.Top = cell.Top
img.Left = cell.Left
img.Placement = xlMoveAndSize

' Store the file path in the cell next to the image
cell.Offset(0, 1).Value = imgPath

End Sub