Lås linier så de ikke kan flyttes

Jeg har lavet en makro som indsætter en masse linier.
fx
ActiveSheet.Shapes.AddLine x,y,x2,y2

men er det muligt at låse linierne så de ikke kan flyttes ?
jeg har forsøgt med:
For Each sh In ActiveSheet.Shapes
If sh.Type = msoLine Then
sh.locked = true
End If
Next

men der sker ingenting.

/Jesper