Posts77Registration dateSaturday September 5, 2015StatusMemberLast seenMarch 8, 2017
May 12, 2016 at 10:38 PM
I would like to request please modify the below macro. The below macro create a line (shape), in all sheets.
If it once created (or it already exist) in all sheets then it wont create again.
Dim StLnShape As Shape
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
' it Create Line (Shape)
Set StLnShape = ws.Shapes.AddLine(258, 163.5, 340, 163.5)
.Name = "smuneeb line"
.Line.EndArrowheadStyle = msoArrowheadNone
.Line.Weight = 1#
.Line.DashStyle = msoLineSolid
.Line.ForeColor.SchemeColor = 0