|
▼Jaka さん:
ご回答いただき、ありがとうございます。
早速試してみたところ、
.Select
で、「'Select'メソッドは失敗しました。'Shape'オブジェクト」というエラーになりました。
すでにコメントがあるセルで、
Selection.Comment.Shape.Select
と試しましたが、これも同様のエラーが出てしまいました。
セレクトできないんですね…残念です…
> 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
>
>とか。
|
|