Insert Picture in a cell and name the picture in the next cell

[monkeyspank]

I have found a macro that will capture multiple pictures and upload the pictures into the Excel cells, but I also want to show the name of the picture i uploaded in the cell. Is this even possible?

Private Sub CommandButton1_Click()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
      
End If
End Sub

 

[Anthony47]

I guess this modification should work:

        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        Rng.Offset(0, 1).Value = PicList(lLoop)     'Pic Name
        xRowIndex = xRowIndex + 1

Bye

 

[monkeyspank]

Thank you , it worked perfectly.

 

[Anthony47]