|
▼bykin さん:
動作確認ができました。
コメントを手動で非表示にする点は、これから仕様検討いたしますが、
昨日一日悶々としていたものがスッキリいたしました。
ありがとうございました!
>2000でも2002でも2003でもSelectのとこでエラーになりまっせ。
>CommentのVisibleをTrueにせんとあかんみたいです。
>
>Sub コメントを入れる()
> With Selection
> .AddComment
> With .Comment
> .Visible = True '<=====コメントを常に表示
> With .Shape
> .Line.Visible = msoFalse
> .Fill.PresetTextured msoTextureMediumWood
> With .TextFrame
> .AutoSize = True
> .VerticalAlignment = xlCenter
> With .Characters.Font
> .Name = "MS Pゴシック"
> .FontStyle = "標準"
> .Size = 10
> .ColorIndex = 2
> End With
> End With
> .Select
> Application.SendKeys " "
> Application.SendKeys "{BackSpace}"
> End With
> End With
> End With
>End Sub
>
>但し、これやったらコメントを手動で非表示に戻す必要があります。
|
|