Z
Zone
With help from Michael Pierron and Peter T., I have made progress on
getting RGB colors. I select a rectangle on the screen. The
rectangle's lines may be a scheme color or RGB colors, same for its
fill. I try to detect the scheme color first. If that gives an error,
I try to detect the RGB colors. This works fine unless BOTH the line
and the fill are RGB colors. IN that case, I get an error when the
code tries to get Selection.ShapeRange.Line.ForeColor.SchemeColor. The
error is Run Time Error 70 Permission Denied. A wierd error to get.
What's more, the error trap fails and execution stops. Help! Thanks,
James
On Error GoTo GetRGBLine
MyMsg = "Line Color " &
Selection.ShapeRange.Line.ForeColor.SchemeColor _
& vbLf
GoTo SchemeFill
GetRGBLine:
MyMsg = RGB_SettingsLine() & vbLf
SchemeFill:
getting RGB colors. I select a rectangle on the screen. The
rectangle's lines may be a scheme color or RGB colors, same for its
fill. I try to detect the scheme color first. If that gives an error,
I try to detect the RGB colors. This works fine unless BOTH the line
and the fill are RGB colors. IN that case, I get an error when the
code tries to get Selection.ShapeRange.Line.ForeColor.SchemeColor. The
error is Run Time Error 70 Permission Denied. A wierd error to get.
What's more, the error trap fails and execution stops. Help! Thanks,
James
On Error GoTo GetRGBLine
MyMsg = "Line Color " &
Selection.ShapeRange.Line.ForeColor.SchemeColor _
& vbLf
GoTo SchemeFill
GetRGBLine:
MyMsg = RGB_SettingsLine() & vbLf
SchemeFill: