これ?
With Application.CommandBars
 If .GetEnabledMso("InkingStart") = True Then
  .ExecuteMso "InkingStart"
 End If
End With