【テキストボックス作成】

ここを編集

Dim spTxtBox As Shape
Set spTxtBox = shTrgtSht.Shapes.AddTextbox( _
                    Orientation:=msoTextOrientationHorizontal, _
                    Left:=10, _
                    Top:=10, _
                    Width:=10, _
                    Height:=10 _
               )
With spTxtBox
    .TextFrame.Characters.Text = "エラーフレームなし"
    .TextFrame.AutoSize = True
End With
 

ここを編集