pic.Copy

Sub Макрос2()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 474.75, 151.5, 208.5, 154.5). _
        Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange
        .Formula = "=$J$5"
    End With
    Range("A1").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim iFileName$: iFileName = Target(1).Text
    If iFileName = "" Then Exit Sub
    
    If Dir(iFileName) <> "" Then
       With WindowsMediaPlayer1
            .Left = Target.Left
            .Top = Target(2).Top
            .URL = iFileName
       End With
    End If
End Sub

Public x As Long
Public y As Long
Public lll
Public ttt
Public zzz As String

Sub Vstavka()
On Error Resume Next
Sheets(1).Shapes.AddPicture _
        Filename:=zzz, _
        linktofile:=msoFalse, _
        savewithdocument:=msoCTrue, _
        Left:=lll, _
        Top:=ttt + 12.75, _
        Width:=300, _
        Height:=200
End Sub