Excel Draw Tools

[RY_VT]

Anyone know the code to select the a pen of specific color in the draw tool ribbon? OR point me in the direction online? I can't seem to find anything for this online. I'd like to have a button press select the pen.

Thanks in advance!

 

[My Aswer Is This]

Try using the Macro Recorder then select the tool you want format your line the way you want.
Modify the code later if needed.

 

[RY_VT]

That was the first think I tried and it didn't seem to record anything. I used different pens and different colors, but nada.

 

[My Aswer Is This]

I just recorded this with the Macro Recorder.

Sub DrawMe()
'
' DrawMe Macro
'
'
    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 200.25, 62.25, 542.25, _
        156).Select
        Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 2.25
    End With
    Range("J15").Select
End Sub

 

[RY_VT]

I just recorded this with the Macro Recorder.

Sub DrawMe()
'
' DrawMe Macro
'
'
    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 200.25, 62.25, 542.25, _
        156).Select
        Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 2.25
    End With
    Range("J15").Select
End Sub

This is drawing line with an arrow...I wanted to free draw with the pen tool. I would select press a button and the pen tool would be enabled, rather than the curser.

 

[My Aswer Is This]

Yes I understand now. Your correct the recorder does not record this.