追記：この記事のプログラムを修正した記事を作成しました。
プログラム修正 Excelで仮想通貨の資産管理4-2 -Excel VBA
前回は銘柄別の保有割合をセルに数字のパーセンテイジで表示しました。
Excelで仮想通貨の資産管理3 -Excel VBA
今回はその保有割合のグラフをVBAで表示したいと思います。下は前回までの実行結果となります。
・コード
実行するたびにグラフが増えてしまうので最初にグラフを削除します。その後に参照範囲を指定して、名称、位置等を記述します。
' 既存のグラフを全て消す
Dim cht
For Each cht In ActiveSheet.ChartObjects
cht.Delete
Next
Set rng = Range(Cells(2, 2), Cells(trow - 1, 2))
Set rng = Union(rng, Range(Cells(2, 6), Cells(trow - 1, 6)))
ActiveSheet.Shapes.AddChart2(251, xlPie).Select
ActiveChart.SetSourceData Source:=rng
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 251
ActiveChart.ApplyLayout (1)
ActiveChart.ChartTitle.Text = "Portfolio"
ActiveSheet.ChartObjects(1).name = "グラフ 1"
ActiveSheet.ChartObjects.Top = Range("D12").Top
ActiveSheet.ChartObjects.Left = Range("D12").Left
●実行結果
保有割合の図が表示されました。
無料・ダウンロード可) 仮想通貨エクセルツール2 各国法定通貨換算可能！仮想通貨価格・時価総額データ表示アプリケーション -Excel VBA
