Excel で グラフィックス

こんなものを書いてみました。

オートシェイプを記録して、forでまわしただけですが...

office 2003。

view plainprint?

1. Sub Line()  
2.     ' 円の中心  
3.     Dim centerX As Integer  
4.     centerX = 300  
5.     Dim centerY As Integer  
6.     centerY = 100  
7.   
8.     ' 円の半径  
9.     Dim radius As Integer  
10.     radius = 100  
11.       
12.     Dim max As Integer  
13.     max = 200  
14.     For i = 0 To max Step 1  
15.         radian = 3.14 * 2 * i / max  
16.         x = Cos(radian) * radius + centerX  
17.         y = Sin(radian) * radius + centerY  
18.   
19.         ' オートシェイプで線を引く。  
20.         ActiveSheet.Shapes.AddLine(x, y, centerX, centerY).Select  
21.         Selection.ShapeRange.Line.Weight = 0#  
22.           
23.         ' 色をちょっとづつ変えてみる。  
24.         Dim calor As Integer  
25.         calor = 255 / max * i  
26.         Selection.ShapeRange.Line.ForeColor.RGB = RGB(calor, 255, 255)  
27.     Next i  
28. End Sub  

Sub Line()
    ' 円の中心
    Dim centerX As Integer
    centerX = 300
    Dim centerY As Integer
    centerY = 100

    ' 円の半径
    Dim radius As Integer
    radius = 100
    
    Dim max As Integer
    max = 200
    For i = 0 To max Step 1
        radian = 3.14 * 2 * i / max
        x = Cos(radian) * radius + centerX
        y = Sin(radian) * radius + centerY

        ' オートシェイプで線を引く。
        ActiveSheet.Shapes.AddLine(x, y, centerX, centerY).Select
        Selection.ShapeRange.Line.Weight = 0#
        
        ' 色をちょっとづつ変えてみる。
        Dim calor As Integer
        calor = 255 / max * i
        Selection.ShapeRange.Line.ForeColor.RGB = RGB(calor, 255, 255)
    Next i
End Sub

やっぱり。

wpfはちょっと敷居がたかそうだったので、C#とFormに路線変更。

とりあえず、formに文字列と簡単なグラフィックを書くところを試す。

OnPaintを追加する方法がよくわからず、苦戦する。

このへんをダブルクリックすればよいみたい。