ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【エクセルマクロ】レーダーグラフを作成するマクロ。




どうも、ゴリラストロングです。

 

今回はレーダーグラフを作成するマクロを作成してみました。

 

 

<元データ>

f:id:gorilla-strong:20200228114612p:plain

<マクロ実行後>

f:id:gorilla-strong:20200228114704p:plain

 

 

スポンサーリンク

 

 

ソースコード

Sub レーダーグラフ()


Dim macro As Object
Set macro = Workbooks("ゴリラストロングの雑記帳3.xlsm").Worksheets("レーダーグラフ作成マクロ")


Dim lastrow As Long
lastrow = macro.Cells(Rows.Count, 1).End(xlUp).Row

Dim rng As Range
Set rng = macro.Range(Cells(lastrow, 1), Cells(lastrow, 6))

Dim fixrng As Range
Set fixrng = macro.Range(Cells(2, 1), Cells(2, 6))



With ActiveSheet.Shapes.AddChart.Chart
        .ChartType = xlRadar
        .SetSourceData Source:=Range(fixrng, rng)
        .ChartStyle = 320
        .HasAxis(xlValue, xlPrimary) = False
        
End With




With ActiveSheet.ChartObjects(1)
        .Top = Range("H2").Top
        .Left = Range("H2").Left
End With

End Sub

 

結構簡単にレーダーグラフを作成することができました。

以上、ゴリラストロングでした。

 

スポンサーリンク