|
こんな方法もありました。
但し、両方マクロになってしまいますが・・・。
'======================================================
Sub 線なしTextbox()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 10, 10)
With shp
.Line.Visible = msoFalse
.SetShapesDefaultProperties
.Delete
End With
Application.CommandBars("Drawing").Controls(9).Execute
End Sub
==========================================================================
Sub 線ありTextbox()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 10, 10)
With shp
.Line.Visible = msoTrue
.SetShapesDefaultProperties
.Delete
End With
Application.CommandBars("Drawing").Controls(9).Execute
End Sub
|
|