円面積による数値の表現
円による数値の表現をエクセルでしてみたいと思います。エクセルの標準機能ではできません。円の面積が数字を表しています。
作成方法
コードは以下です。エクセルから、Visual Basicを開いて、以下を貼り付け実行してください。
作りたい数値に合わせて、a面積、b面積、c面積を変更してください。また、円が小さすぎる場合は、サイズ調整の数値を大きくしてください。
Sub 円面積による数値表現()
Dim a面積 As Double
Dim b面積 As Double
Dim c面積 As Double
Dim a直径 As Double
Dim b直径 As Double
Dim c直径 As Double
Dim サイズ調整 As Double
a面積 = 100
b面積 = 300
c面積 = 1500
a直径 = Sqr(4 * a面積 / 3.1415926535)
b直径 = Sqr(4 * b面積 / 3.1415926535)
c直径 = Sqr(4 * c面積 / 3.1415926535)
サイズ調整 = 1
ActiveSheet.Shapes.AddShape(msoShapeOval, 300, 20, a直径 * サイズ調整, a直径 * サイズ調整).Select
Selection.ShapeRange.Line.Visible = msoFalse
ActiveSheet.Shapes.AddShape(msoShapeOval, 300, 100, b直径 * サイズ調整, b直径 * サイズ調整).Select
Selection.ShapeRange.Line.Visible = msoFalse
ActiveSheet.Shapes.AddShape(msoShapeOval, 300, 200, c直径 * サイズ調整, c直径 * サイズ調整).Select
Selection.ShapeRange.Line.Visible = msoFalse
End Sub