Jag försöker lägga in en bild i en cell i en tabell som jag skapat upp men jag får hela tiden fel.

Felmeddelande:
The specified value is out of range.

Koden där jag försöker sätta in bilden.

With objTable.Cell(intRow, 4).Shape
            
    objSlide.Shapes.AddPicture(ActionStatusBar_GetPath(rsActions("ac_completed"), rsActions("ac_assessment")), msoFalse, msoFalse, 100, 100).Select

End With
'Med text funkar det hur bra som helst.
With objTable.Cell(intRow, 5).Shape
    .TextFrame.TextRange.Text = rsActions("ac_enddate") & ""
    .TextFrame.TextRange.Font.Size = intFontSize
End With

hmm det var visst jag som var klantig och använde msoFalse när det skulle vara msoTrue...