Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64522 / 76738

←次へ　｜　前へ→


	【16796】描画オブジェクトテキストボックスの文字数制限？

みゅう - 04/8/10(火) 11:33 -


	引用なし

	パスワード

こんにちは。

描画オブジェクトのテキストボックスを作成して文章を入れたいのですが、
長い文章を入れると、テキストボックスが作成されるだけで終ってしまいます。
文章を短くすると、ちゃんと表示されます。
どのようにすれば長い文章を表示させられるか教えて下さい。
よろしくお願いします。

一応、下記のように作成しています。
最後の"ABCDEF"を"ABCDE"にすれば表示されるので、
255バイトまでＯＫ、256バイト以上がダメなようなのですが・・・。

Set SH = ThisWorkbook.Worksheets(1)　　
SH.Shapes.AddTextbox(msoTextOrientationHorizontal, _
　　　　Range("A13").Left + 4, Range("A13").Top + 2, Range("A13:G13").Width, Range("A13").Height) _
　　　　.Name = "SouhyouBox"

　　Dim Msg1 As String
　　Dim Msg2 As String
　　Dim MsgAll As String
　　
　　Msg1 = "1234567890223456789032345678904234567890523456789-"
　　Msg2 = "6234567890723456789082345678909234567890023456789-"

　　MsgAll = Msg1 & Msg2 & Msg1 & Msg2 & Msg1 & "ABCDEF"

　　SH_THIS_1MEN.Shapes("SouhyouBox").Select
　　Selection.Characters.Text = MsgAll

0 hits

▼

【16796】描画オブジェクトテキストボックスの文字数制限？ みゅう 04/8/10(火) 11:33

≪