Sub insert_artshape()
	ActiveSheet.Shapes.AddLine(10,10,100,100).Select
	'アクティブシートに直線を
	'(10,10)から(100,100)までひきます
End Sub