やれExcel、やれGoogle スプレッドシート: プログラム修正　Excelで仮想通貨の資産管理6-2 -Excel VBA

2018/02/18

前回は各銘柄の損益額の割合を出して損益率の棒グラフを表示しました。マクロの登録で生成されるプログラムをそのまま使用している箇所があり見にくかったりわかりづらさがありました。
それを修正するため、自分なりに読みやすいコードを考えてみました。

前回の記事はこちら

・コード

'bar chart

Dim bar1 As ChartObject

Set bar1 = Sheet1.ChartObjects.Add(500, 150, 200, 100)

' chart range

Set rng = Range(Cells(2, 2), Cells(trow - 1, 2))　　’B列

Set rng = Union(rng, Range(Cells(2, 10), Cells(trow - 1, 10)))　　’J列

With bar1

.name = "Graph 2"

.Height = 200

.Width = 400

End With

'chart type title, style

With bar1.Chart

.SetSourceData Source:=rng

.ChartType = xlColumnClustered

.HasTitle = False

.ApplyLayout (11)　　’レイアウト表示

.SetElement (msoElementDataLabelOutSideEnd)　　’データラベルを外側の末尾に表示

.ChartColor = 13

End With

●実行結果