Insert Picture in a Cell UDF

[Jen]

Hi All,

Here is a UDF, which helps to insert a picture into a cell.

Enjoy !!

Function INSERTPICTURE(ByVal PictureFullName As String, Optional ByVal PicWidth As Single = 200, _
                                                        Optional ByVal PicHeight As Single = 150)
        
    '// Author      : Kris @ ExcelFox.com
        
    Dim CellActive      As Range
    Dim picPicture      As Object
    
    Set CellActive = Application.Caller
    
    For Each picPicture In CellActive.Parent.Pictures
        If picPicture.TopLeftCell.Address = CellActive.Address Then
            picPicture.Delete
            Exit For
        End If
    Next
    
    Set picPicture = CellActive.Parent.Pictures.Insert(PictureFullName)
    With picPicture
        .Left = CellActive.Left + 1
        .Top = CellActive.Top + 1
        .Width = PicWidth
        .Height = PicHeight
    End With
    
End Function

use like =INSERTPICTURE("C:\Pictures\MyPicture.jpg")

PFA sample workbook.

The codes seem insert a picture once only. I can't do second time by putting a new path.

[Rasm]

Kris

I have used your code -- it works great -- I am using the one where I place pictures on a chart. However I have a sheet that contain all my settings --- so I have copied my picture into that sheet -- I am now trying to copy that picture (I have identified it as a shape) ---- I can copy shapes from one sheet to another --- But I cannot figure out how to copy a shape fom a sheet to a chart --- any idea
Thanks
Rasm

[jazbah]

HI2 AND THANKS FOR SHARING NICE INFO