Hello!
I have a worksheet called "Schedule" in which a tool bar has been created for adding lines and custome text boxes for completing a linebar schedule. The objects are created in code:
ActiveSheet.Shapes.AddLine(132, 272, 198.75, 272).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 62
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadDiamond
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadDiamond
Selection.ShapeRange.ZOrder msoSendToBack
End Sub
This creates a 2 hour shift. There are 10 different lines that can be created. There is also a button that creates a text box that is used to designate "breaks" on the schedule.
I am looking for the code that will select all of these items (no matter how many there are) and delete them and create a fresh sheet.
I've searched the site and tried SelectAll and can't get it to work.
Obviously, any help is appreciated.
Louis
I have a worksheet called "Schedule" in which a tool bar has been created for adding lines and custome text boxes for completing a linebar schedule. The objects are created in code:
ActiveSheet.Shapes.AddLine(132, 272, 198.75, 272).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 62
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadDiamond
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadDiamond
Selection.ShapeRange.ZOrder msoSendToBack
End Sub
This creates a 2 hour shift. There are 10 different lines that can be created. There is also a button that creates a text box that is used to designate "breaks" on the schedule.
I am looking for the code that will select all of these items (no matter how many there are) and delete them and create a fresh sheet.
I've searched the site and tried SelectAll and can't get it to work.
Obviously, any help is appreciated.
Louis