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バイトまで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

【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