エクセル2007 数字を丸で囲む

質問

エクセル2007　数字を丸で囲む

回答No.3

brianstime

VBAを使用してセルに円を挿入しその円のTextエリアに
数字を書き込む方法で対処してはどうでしょう。
セルのサイズでいろいろ変更出来ますが、とりあえず
ソースの数字をいじってみて、適宜変更してください。

Sub RoundNumber()
Dim objOval As Object
Dim sngWidth As Single
Dim sngHeight As Single

　sngWidth = 18 '行の高さを20ptに指定したとして円を18ptで表示
　sngHeight = sngWidth '楕円挿入なので幅と高さを同じにして円にする。
　Set objOval = ActiveWorkbook.Sheets("Sheet1").Shapes.AddShape(msoShapeOval, _
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ActiveCell.Left, _
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ActiveCell.Top, _
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　sngWidth, _
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　sngHeight)
　With objOval
　　.Fill.Visible = False '塗りつぶしなしに設定

　　With .TextFrame
　　　.MarginBottom = 0
　　　.MarginLeft = 0
　　　.MarginRight = 0
　　　.MarginTop = 0
　　　.HorizontalAlignment = xlHAlignCenter
　　　.VerticalAlignment = xlVAlignCenter

　　　With .Characters
　　　　.Text = InputBox("数字 ?", "丸囲み数字の図形挿入", 21)
　　　　With .Font
　　　　　.Name = Application.StandardFont
　　　　　.Size = 8
　　　　　.Color = RGB(0, 0, 0)
　　　　End With
　　　End With
　　End With

　　With .Line
　　　.Weight = 0.1 '->線の太さ
　　　.ForeColor.RGB = RGB(0, 0, 0) '->線の色を黒に
　　End With
　End With

　Set objOval = Nothing
End
End Sub