|
コメント挿入の際、こだわりの仕様があるのですが、
いつも同じ設定をするのが面倒なので、以下のマクロを組みました。
----------------------
Sub コメントを入れる()
With Selection
.AddComment
With .Comment
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
End With
End With
End With
End Sub
--------------
これで後は、毎回コメント文を手入力すればOKなんですが、
せっかくなら、このコードを改良し、
すぐにでも入力ができる状態(「コメントの編集」をクリックした状態)に
なっていればすごく便利なんですが、どうしたらいいのかがわかりません…
マクロの記録でも、コメント入力中は記録取れないんです。
過去ログも検索しましたが、キーワードが悪いのか、ヒットしません。
ヒントだけでも構いませんので、ご指南いただけませんでしょうか。
よろしくお願い致します。
Win2000, Excel2003
|
|