|
▼awu さん:
>こんな感じで如何でしょうか。
>
>但し、コメントの改行位置は、この掲示板の表示通りにしていますので、
>行の文字数制限に影響されている場合は、修正が必要かも知れません。
>
>Sub コメント()
>Dim ComTxt As String
>With ActiveCell
> .ClearComments
> With .AddComment.Shape
> .Width = 360
> .Height = 160
> End With
> ComTxt = _
> " a s r t" & vbLf & _
> " y u h f" & _
> " d a" & vbLf & _
> " s g n u" & vbLf & _
> " d r b z awwbjkfjkgfykf" & vbLf & _
> " kej y d" & vbLf & _
> " dqcd e t y f y" & _
> " f w" & vbLf & _
> " tt f " & _
> " " & _
> " w dg j k b " & vbLf & _
> "c s w r" & vbLf & _
> " hjk n k" & vbLf & _
> " a c n j u" & _
> " t r" & " j" & vbLf & _
> " df gu o" & vbLf & _
> " sdfh jve j svh frimw" & vbLf & _
> "afitmigehklhgr"
> .Comment.Text Text:=ComTxt
>End With
>End Sub
できました!!
返信ありがとうございます!
vbLfというコードについては自分でしらべることにします。
本当にありがとうございました。
|
|