【VBA】図形を挿入(作成)する方法

Sub ShpInsert()
    '''図形（四角）を挿入する
    
    '図形（四角）を挿入
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 150, 80)
End Sub

Sub ShpColorTxt()
    '''図形の色やテキストを設定する
    
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 150, 80)
    
    '図形の色を設定
    With shp
        .Fill.ForeColor.RGB = vbWhite '塗りつぶしの色
        .Line.ForeColor.RGB = vbBlack '枠線の色
    End With
    
    '図形のテキストを設定
    With shp
        .TextFrame2.TextRange.Text = "テキスト" '文字
        .TextFrame2.TextRange.Font.Size = 11 '文字の大きさ
        .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbBlack '文字の色
        .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter '中央揃え
        .TextFrame2.VerticalAnchor = msoAnchorMiddle '高さ中央揃え
    End With
End Sub