Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11307 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【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
【16798】Re:描画オブジェクトテキストボックスの...
回答  Jaka  - 04/8/10(火) 12:09 -
引用なし
パスワード
   こんにちは。

参考になれば良いけど....。
[#7305]
【16810】Re:描画オブジェクトテキストボックスの...
回答  Jaka  - 04/8/10(火) 17:31 -
引用なし
パスワード
   参考になれば...。

Sub セルからテキストへ()
　　Dim Celst1 As String, Celst2 As String
　　ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""
　　DoEvents
　　Celst1 = Range("A1").Value
　　Celst2 = Empty
　　For i = 1 To Len(Range("A1").Value)
　　　　Celst2 = Celst2 & Mid(Celst1, 1, 1)
　　　　Celst1 = Mid(Celst1, 2)
　　　　Ct = Ct + 1
　　　　If i Mod 200 = 0 Then
　　　　　 ActiveSheet.Shapes("Text Box 1").TextFrame.Characters(i - 200 + 1).Insert String:=Celst2
　　　　　 Celst2 = Empty
　　　　End If
　　Next
　　If Celst2 <> Empty Then
　　　 ActiveSheet.Shapes("Text Box 1").TextFrame.Characters(Ct + 1).Insert String:=Celst2
　　End If
End Sub
【16818】Re:描画オブジェクトテキストボックスの...
お礼  みゅう  - 04/8/11(水) 9:51 -
引用なし
パスワード
   Jaka さん、ありがとうございました。

>参考になれば良いけど....。
>[#7305]

これを参考に自分なりに作ってみたところ、
ちゃんと表示できました。

もう一つの参考は、今から見させて頂きます。
ありがとうございました。m(_ _)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11307 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free