Thread: Change Color for Drawing Line Object
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ed Ferrero[_3_] Ed Ferrero[_3_] is offline
external usenet poster
  
Posts: 108
Default Change Color for Drawing Line Object
Hi smandula,

ActiveSheet.Shapes.AddLine(nStart1, nStart2, nEnd1, nEnd2).Select

Change this line to
Set shp = ActiveSheet.Shapes.AddLine(nStart1, nStart2, nEnd1, nEnd2)
shp.Line.ForeColor.RGB = RGB(255, 0, 0)

Ed Ferrero
www.edferrero.com
Reply With QuoteReply With Quote