|
▼Jaka さん:
下記のいただいたコードをそのままコピペしてみましたが、
やはり同様のエラーとなります。
セルは非表示ではありません。
新規ブックでも試しましたが、同様です。
Jakaさんとの違いは、Excel2002か2003かということですね…(-_-;
>win2000 & EXL2002ではなんとも無いんですが。
>何か非表示セルだとエラーになるとか聞いたことがある。
>他、実行の仕方が違うとか?これは全く関係ないと思うけど。
>
>
>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
> .Select
> Application.SendKeys " "
> Application.SendKeys "{BackSpace}"
> End With
> End With
> End With
>End Sub
|
|