|
>Jakaはん
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
但し、これやったらコメントを手動で非表示に戻す必要があります。
確認してみてな。
ほな。
|
|