Excel VBA質問箱 IV

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

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


52191 / 76732 ←次へ | 前へ→

【29382】Re:コメントの挿入
発言  ichinose  - 05/10/4(火) 7:20 -

引用なし
パスワード
   ▼awu さん、皆さん、おはようございます。

>
>>
>それで、当初のコードでコメント文が、何も表示されないのは、
>
> .TextFrame.Characters.Text = の記述で Characters メソッドを使用したことと、
>呪い文?のような長いコメント文が起因しているからではないかと思います。 
>
>Charactersの引数である Start と Length を省略していますので、指定した文字列全体が
>対象になりそうですが、提示したコメント文は、255文字を超えていますので、全て無視され
>何も表示されない状態になったようです。(テスト結果の推測です。)

TextFrameオブジェクトを使用して以下のコードを実行してみてください。

'=================================================================
Sub test()
  With ActiveCell
    .ClearComments
    With .AddComment
      With .Shape
       .Width = 200
       .Height = 3000
       For idx = 1 To 26
        For jdx = 1 To 20
          .TextFrame.Characters(420 * (idx - 1) + 21 * (jdx - 1) + 1, 21).Text = String(20, Chr(64 + idx)) & vbLf
          Next
        Next
       End With
      
      End With
    End With
  
End Sub

つまりCharactersに引数を指定して、少しずつ指定する方法です。
但し、これでも行数には限界あるようですね!!


これは

'===============================================================
Sub test2()
  Dim txt As String
  With ActiveCell
    .ClearComments
    With .AddComment
      With .Shape
       .Width = 200
       .Height = 3000
       End With
     
      For idx = 1 To 26
       For jdx = 1 To 20
         txt = txt & String(20, Chr(64 + idx)) & vbLf
         Next
       Next
      .Text Text:=txt
      End With
    End With

End Sub

のCommentオブジェクトのTextプロパティを使用しても同じです。


もっとも、オ−トシェイプではなく、コメントならば、
testよりもtest2の方法が何かと簡単そうですけどね!!

尚、TextFrameに関しては、Jakaさんの目安箱でも

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=63;id=FAQ

で検証されています。
1 hits

【29357】コメントの挿入 VBA一年生 05/10/2(日) 20:16 質問
【29358】Re:コメントの挿入 かみちゃん 05/10/2(日) 20:23 発言
【29359】Re:コメントの挿入 VBA一年生 05/10/2(日) 21:08 お礼
【29362】Re:コメントの挿入 awu 05/10/3(月) 1:22 回答
【29369】Re:コメントの挿入 VBA一年生 05/10/3(月) 17:33 お礼
【29378】Re:コメントの挿入 awu 05/10/4(火) 0:13 発言
【29382】Re:コメントの挿入 ichinose 05/10/4(火) 7:20 発言
【29458】Re:コメントの挿入 VBA一年生 05/10/5(水) 20:59 お礼

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