12/03/19 22:01:31.40
>>735
以下の様に、変更するとテキストボックスをかけるようになった。
Sub mkTextBTest02()
Dim shSel As Shape
Set shSel = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
48#, 20 + 16 * lC, 10#, 16#)
shSel.TextFrame.Characters.Text = lC '←＄文字列を書く
With shSel.TextFrame.Characters.Font '←＄フォントの設定
.Name = "ＭＳ ゴシック"
.Size = 9
End With
shSel.Line.ForeColor.SchemeColor = 8 '←＄フォントの設定
End Sub
VB Editorのヘルプを調べてわかった。
各くオブジェクトのpropertyと、propertyのobjectを定義するclassの区別
がついていなかった。