Excel VBA質問箱 IV

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

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


64516 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは。

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

一応、下記のように作成しています。
最後の"ABCDEF"を"ABCDE"にすれば表示されるので、
255バイトまでOK、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 質問
【16798】Re:描画オブジェクトテキストボックスの文... Jaka 04/8/10(火) 12:09 回答
【16810】Re:描画オブジェクトテキストボックスの文... Jaka 04/8/10(火) 17:31 回答
【16818】Re:描画オブジェクトテキストボックスの文... みゅう 04/8/11(水) 9:51 お礼

64516 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free