Sub Text_Insert(Comment, P_X, P_Y)
'===============
' 指定位置にTextを書きます
'===============
Dim Txt As String
Dim Px As Single
Dim Py As Single

Txt = Comment
Px = P_X
Py = P_Y

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, Px, Py, 50, 20).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Line.Visible = msoFalse

    Selection.ShapeRange.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
    Selection.ShapeRange.TextFrame2.MarginLeft = 0
    Selection.ShapeRange.TextFrame2.MarginRight = 0
    Selection.ShapeRange.TextFrame2.MarginTop = 0
    Selection.ShapeRange.TextFrame2.TextRange.Characters.Text = Txt

 With Selection
 .Font.Size = F_size
 .ShapeRange.Line.Weight = 0.5               ' _ 線の太さ
 .ShapeRange.Line.Visible = 0                ' _ 線 無 0  か False
 .ShapeRange.Fill.Visible = 0                ' _ 塗りつぶし 無 なら【 0 】かFalse
 .Font.Name = "Meiryo UI"
 .Font.ColorIndex = 1
 End With

End Sub