Pictures hidden

[PeterBunde]

I inserted pictures into cells using the below code. however, suddenly the pictures being inserted started appearing hidden. Can anyone explain?

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range)
    Dim Shp As Shape
 
    With rngTarget
        With .Parent
            .Pictures.Insert strShpUrl
            Set Shp = .Shapes(.Shapes.Count)
        End With
        Shp.Left = .Left
        Shp.Top = .Top
    End With
    
    Shp.Select
    
    FitPic
 
    Set Shp = Nothing


End Sub