Lage en enkel linje

Dette er første gangen jeg skal prøve å lage en enkel linje i et script, jeg klarer å tå til linjen men ikke tykkelse og farge, hva gjør jeg feil?

'Line
Set objShape = objDoc.Shapes
objShape.line.weight = 3
objShape.line.color = RGB(153,153,153)
objShape.AddLine(71, 39, 200, 39).select
objSelection.TypeParagraph()