プログラム修正 Excelで仮想通貨の資産管理4-2 -Excel VBA

Excelで仮想通貨の資産管理4 -Excel VBAで円グラフを表示させました。マクロの登録でそのまま出てくるShapes.AddChart2メソッドを使用していました。

よりわかりやすいコードを記述するために、マクロそのままではなく今回はchartobjectオブジェクトを使用したいと思います。

・コード

  ' pie chart
    Dim pie1 As ChartObject
 
　’グラフ追加()内はグラフのサイズ
    Set pie1 = Sheet1.ChartObjects.Add(150, 150, 200, 100)
     
    ' chart range
    Set rng = Range(Cells(2, 2), Cells(trow - 1, 2))
    Set rng = Union(rng, Range(Cells(2, 7), Cells(trow - 1, 7)))

　’ChartObjectオブジェクトの操作
    With pie1
         .name = "Graph 1"
         .Height = 200
         .Width = 323.6
    End With

    ’Chartオブジェクトの操作
    With pie1.Chart
         .SetSourceData Source:=rng
         .ChartType = xlPie
       
         .HasTitle = True
         .ChartTitle.Text = "Allocation"

         .ClearToMatchStyle
         .ChartStyle = 251
         .ApplyLayout (1)　’円グラフから出てる線と文字のこと
       
    End With

●実行結果
時間がない時はマクロをそのままコピーでもいいかもしれませんが、基本的には自分がしっかりと理解したプログラムを記述したいですね。

無料・ダウンロード可) 仮想通貨エクセルツール2 各国法定通貨換算可能！仮想通貨価格・時価総額データ表示アプリケーション -Excel VBA

参考サイト1
参考サイト2