CreateRGBColor problemI am having trouble with a small piece of VBA codeI want to set a variable, I think of type Color, to be used in an .Outline.SetProperties lineI get an 'Object Doesn't support this Property of Method error on the Edgecolor = line'=========================Dim Edgecolor As New ColorDim Red As Integer, Green As Integer, Blue As Integertmps = GetSetting("CorelDRAW Surpac Import", "Boundary Box Outer", "Color") Red = CInt(Left(tmps, 3)) Green = CInt(Mid(tmps, 4, 3)) Blue = CInt(Right(tmps, 3)) Edgecolor = CreateRGBColor(Red, Green, Blue) 'Object Doesn't support this Property of Method Set sh = ActiveLayer.CreateRectangle(Edgeo, py - Edgeo, px - Edgeo, Edgeo) 'Outer Box sh.Rectangle.CornerType = cdrCornerTypeRound sh.Rectangle.RelativeCornerScaling = True sh.Fill.ApplyNoFill sh.Outline.SetProperties LineSize, OutlineStyles(0), Edgecolor, ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#'=========================
I am developing this in X5 but it will be required for X5 - X7
Any help appreciated ***...
I think that line should be changed to
Set Edgecolor =
Best regards
Mek
Thanx Mek Said with Rose Colored cheeks ***...
You are welcome. M.