[VBA] How to change the property of a line of a shape

[Peter Müller]

Each of the following line produces an error which tells me the value is
not inside the allowed range:

myShape.Line.Weight=1
myShape.Line.ForeColor.RGB=0
i=myShape.Line.ForeColor.RGB
i=myShape.Line.ForeColor.Type

Has anyone a clue what's going on?

 

[Peter Müller]

The code works using PowerPoint 2003 but not when using PowerPoint 2007

 

[Steve Rindsberg]

Each of the following line produces an error which tells me the value is
not inside the allowed range:

myShape.Line.Weight=1
myShape.Line.ForeColor.RGB=0
i=myShape.Line.ForeColor.RGB
i=myShape.Line.ForeColor.Type

Has anyone a clue what's going on?

I don't think you've posted enough of the original code to be sure what's
going on. This works in 2007 when I've selected a line or rectangle. Same
as yours, more or less.

Sub thing()
Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
Dim i As Long

oSh.Line.Weight = 1
oSh.Line.ForeColor.RGB = 0
i = oSh.Line.ForeColor.RGB
i = oSh.Line.ForeColor.Type
End Sub