⚡
CreateChart
自動化選択範囲のデータから棒グラフを作成します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： グラフにしたいデータ範囲を選択してから CreateChart を実行します
💻 VBAコード
' CreateChart
' -----------------
' Macro Name: CreateChart
' Description: 選択範囲のデータから棒グラフを作成します
' Parameters: なし
' Returns: なし
' Usage: グラフにしたいデータ範囲を選択してから CreateChart を実行します
' -----------------
Sub CreateChart()
On Error GoTo ErrorHandler
Dim rng As Range
Dim chartObj As ChartObject
Dim ws As Worksheet
If TypeName(Selection) <> "Range" Then
MsgBox "データ範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
Set ws = ActiveSheet
Set chartObj = ws.ChartObjects.Add( _
Left:=rng.Left, _
Top:=rng.Top + rng.Height + 10, _
Width:=400, _
Height:=250)
With chartObj.Chart
.SetSourceData Source:=rng
.ChartType = xlColumnClustered
.HasTitle = True
.ChartTitle.Text = "グラフ"
End With
MsgBox "棒グラフを作成しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub