msoShapeLeftRightArrowCallout

msoShapeLeftRightArrowCallout 　　オートシェイプをVBAで作成 　　

テキスト入力用の左右の矢印ができます。

コード

Sub ExMakeShape()
    Dim tshape As Shape

    With ActiveSheet.Range("D14:E20")
        Set tshape = ActiveSheet.Shapes.AddShape(Type:=msoShapeLeftRightArrowCallout, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
        tshape.Name = "シェイプArrowCallout"
    End With
    Set tshape = Nothing
End Sub

Private Sub CommandButton2_Click()
    ExMakeShape
End Sub

実行画面

Topへ