Sub Test1()
'Dim Pic As Object
'Dim PNam As String
'Set Pic = Sheet3.Shapes.Item("Picture 1")
'PNam = Pic.Name
'MsgBox PNam
'Pic.Select
Dim strPath As String
strPath = ActiveWorkbook.Path & "\" & " "
MsgBox strPath
Range("G1") = Trim(strPath)
End Sub
---------------
Sub Test2()
Dim strFile As String
    Dim stdPic As StdPicture
    Dim lngWidth As Long
    Dim lngHeight As Long
    Dim strPath As String
    Dim intRow As Integer
    intRow = 5
    strPath = Trim(ActiveWorkbook.Path & "\" & "\Pictures")
    strFile = Dir$(strPath & "\*.jpg")
    Do While Len(strFile) > 0
        Set stdPic = LoadPicture(strPath & "\" & strFile)
        intRow = intRow + 1
        Range("A" & intRow).Value = strFile
        Range("B" & intRow).Value = Round(stdPic.Width / 26.4583)
        Range("C" & intRow).Value = Round(stdPic.Height / 26.4583)
        strFile = Dir$
    Loop
End Sub

======================================
Sub Test3()
Application.ScreenUpdating = False
Dim EmployeeName As String, T As String, Dpath As String
Dim pic As Object
Application.ScreenUpdating = False
For Each pic In ActiveSheet.Pictures
pic.Delete
Next pic
EmployeeName = Range("E1").Value
Dpath = ActiveWorkbook.Path
myDir = Dpath & "\" & "Pictures" & "\"
T = ".jpg"
ActiveSheet.Shapes.AddPicture Filename:=myDir & EmployeeName, _
linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=395, _
Top:=20, Width:=130, Height:=140
Application.ScreenUpdating = True
End Sub
------------------------------
Sub test()
Sheet1.Shapes.AddShape(msoShapeOval, 100, 100, 200, 200).Apply

End Sub
==============================
Sub Macro1()
'With Sheet1
'.Shapes.AddShape.AutoShapeType ("E:\Pictures" & "\" & Range("E1"))

ActiveCell.Pictures.Insert ("E:\Pictures" & "\" & Trim(Range("E1")))
'End With
End Sub

=============================
Sub asd()
Dim wsh As Worksheet
Dim i As Long

Set wsh = ActiveSheet
For i = wsh.Shapes.Count To 1 Step -1
If wsh.Shapes(i).Type = msoPicture Then
wsh.Shapes(i).Delete
End If
Next i

Set wsh = Nothing
End Sub
================================
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then
Call Test3
End If
End Sub
