Sub 選択されたセルの中にめいっぱいのサイズで○書く() Dim c As Range If Not TypeName(Selection) = "Range" Then Exit Sub For Each c In Selection With c.MergeArea If c.Address = .Item(1).Address Then ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, _ .Width, .Height).Fill.Visible = False End If End With Next End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 Sub 選択されたセルに大きくまん丸に書く() Dim X As Double Dim Y As Doub