Error on inserting picture on active cell

[promoboy]

I get error 1004 on this
Unable to get the insert property of the Pictures class

i searched all forums to get a solution butno luck
funny thing is it worked well and sudenly it doesn't work anymore

Sub AddPicture()
    Dim img As Object
    Dim Path As String

Path = ("C:\Users\Pictures\piture.png")
If Path <> "False" Then
 Set img = ActiveSheet.Pictures.Insert(Path)


            With img
                    img.Width = 10
                    img.Height = 10
                    img.Top = .Top - 2
                    img.Left = .Left - 2
                    img.Placement = xlMoveAndSize
                End With
                Else
                Exit Sub
                End If
End Sub

 

[Domenic]

It looks like you're missing the username in the path to your image...

Path = "C:\Users\[COLOR=#ff0000]UserName\[/COLOR]Pictures\picture.png"

Also, to check whether a file exists, you can use the Len and Dir functions...

If Len(Dir(Path, vbNormal)) = 0 Then Exit Sub

Therefore, your code can be amended as follows...

Sub AddPicture()

    Dim img As Picture
    Dim Path As String
    
    Path = "C:\Users\UserName\Pictures\picture.png"
    
    If Len(Dir(Path, vbNormal)) = 0 Then Exit Sub
    
    Set img = ActiveSheet.Pictures.Insert(Path)
    
    With img
            .Width = 10
            .Height = 10
            .Top = .Top - 2
            .Left = .Left - 2
            .Placement = xlMoveAndSize
    End With
    
End Sub

Hope this helps!

 

[promoboy]

I've changed it to the code above but still have the same error

 Set img = ActiveSheet.Pictures.Insert(Path)

this is the line highlighted as the fault

 

[promoboy]

I've changed it to the code above but still have the same error

 Set img = ActiveSheet.Pictures.Insert(Path)

this is the line highlighted as the fault

Found the solution

the page was protected