Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　整列した埋め込みグラフを作成する
'
'  Copyright(C) 2000 Sunago
'
'　　埋め込みグラフを整列した形で作成するマクロです。
'  グラフの埋め込み先はSheet1でアクティブセルの位置
'  （セルの右上）からグラフを並べて作成します。
'
'  ※グラフサイズおよび１行に表示するグラフ数の調整は
'   各定数の値を設定します。
'
Option Explicit

Sub Macro1()
Dim objChart
Dim i As Long
Dim nLeft As Long
Dim nTop As Long
Const CWIDTH = 200      'グラフの横幅（ポイント単位）
Const CHEIGHT = 100     'グラフの高さ（ポイント単位）
Const CCOLS = 3         '１行の表示グラフ数
    
    '開始セルを設定する
    Worksheets("Sheet1").Activate
    Range("A5").Activate
    For i = 1 To 5
        nLeft = ((i - 1) Mod CCOLS) * CWIDTH + ActiveCell.Left
        nTop = Int((i - 1) / CCOLS) * CHEIGHT + ActiveCell.Top
        Set objChart = Worksheets("Sheet1").ChartObjects.Add _
                        (nLeft, nTop, CWIDTH, CHEIGHT)
        With objChart.Chart
            'グラフ種類：集合縦棒
            .ChartType = xlColumnClustered
            'グラフのデータ範囲
            .SetSourceData _
                Source:=Sheets("Sheet1").Range("A1:D3"), _
                PlotBy:=xlRows
        End With
    Next
End Sub

'/* 埋め込みグラフを削除する　*/
Sub Macro1_Reset()
    Worksheets("Sheet1").ChartObjects.Delete
End Sub