質問: msoFalseに問題があると思うのですが、VBA初心者なのでうまく変更が出来ません。 ここにより詳細な情報を記載してください。
回答: Selectionは、現在選択されている所なので、表示されていないシートの中をSelectionで使うことはできません。 通常は、AddShapeで追加するShapeを変数に格納し、このプロパティに対して値を設定するようにしますが、いかがでしょうか。 ``` Dim s As Shape Set s = Worksheets("sheet2").Shapes.AddShape(msoShapeOval, Range("C5").Left, Range("C5").Top, Range("C5").Height, Range("C5").Height) s.Fill.Visible = msoFalse With s.Line .Visible = msoTrue .ForeColor.RGB = RGB(0, 0, 0) End With ```