[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 05/30 05:22 / Filesize : 296 KB / Number-of Response : 978
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel VBA 質問スレ Part23

735 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 21:40:34.77 ]
下記の様に作成したテキストボックスのShape objectを変数shSelに代入し
て、そこに文字列や書式設定をやりたい。

Sub mkTextBTest02()
　　Dim shSel As Shape

　　　　Set shSel = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
　　　　　　48#, 20 + 16 * lC, 10#, 16#)

　　　　shSel.Characters.Text = lC　'←＄文字列を書く
　　　　With shSel.Font　'←＄フォントの設定
　　　　　　.Name = "ＭＳ ゴシック"
　　　　　　.Size = 9
　　　　End With
　　　　shSel.ShapeRange.Line.ForeColor.SchemeColor = 1　'←＄フォントの設定
End Sub

←＄印の所でエラーが起きる。
.Characters .Font .ShapeRange は、class Shapeのpropertyでないから。
"ActiveSheet.Shapes.AddTextbox(〜).Select"として変数shSelの代わりに、
Selectionと書くとエラーが起きない。
class Shapeのproperty Characters,Font,ShapeRangeを指定するにはどうす
ればいいでしょうか。





[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜296KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef