Microsoft Excel2010自動記録
　ファイル(F) 　編集(E) 　表示(V) 　挿入(I) 　書式(O) 　ツ−ル(T) 　デ−タ(D) 　ウィンドウ(W) 　ヘルプ(H) 　TOP
セル（E）
行（R）
列（C）
ワ−クシ−ト（W）
グラフ（H）
改ペ−ジ（B）
関数（F）
名前（Ｎ）　　　　　　　≫
コメント（M）
図（Ｐ）　　　　　　　　≫
オブジェクト（O）
ハイパ−リンク（T）

I1．セル/行/列/ワ−クシ−ト

● 以下の４種類は、セルの挿入ダイアログから実行例
Sub Macro1()
[1]右方向にシフト
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
[2]下方向にシフト
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[3]行全体
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
[4]列全体
    Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
◆上記は2003での記録と内容がことなるが、これは2003でも正常に実行されます。

*************************************************

●リボンの「シートの行を挿入」のマクロ例
Sub Macro1()
    Selection.EntireRow.Insert
End Sub
*************************************************

●リボンの「シートの列を挿入」のマクロ例
Sub Macro1()
    Selection.EntireColumn.Insert
End Sub
*************************************************

●リボンの「シートの挿入」のマクロ例
Sub Macro1()
     Sheets.Add
End Sub
◆　sname = ActiveSheet.Nameでシ−ト名を取得できる。
◆　Sheets.Add.Name = "検索結果"のようにシ−ト名を付けて追加する事も出来る。
PageTop
I5．グラフ

○「グラフ」のマクロ例
Sub Macro1()
    Range("B2:E3").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Sheet4!$B$2:$E$3")
    Range("G2").Select
End Sub
■ 本例実施でワ−クシ−ト上へ棒グラフ作成例
PageTop
I6．改ペ−ジ

●「改ペ−ジ」のマクロ例
Sub Macro1()
・改ペ−ジ設定
    Range("F5").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
    Range("A1").Select
End Sub
・改ペ−ジ解除
Sub Macro1()
    Range("F5").Select
    ActiveSheet.HPageBreaks(1).Delete
    ActiveSheet.VPageBreaks(2).Delete
End Sub
■ 本例は、セル"F5"を選択し改ペ−ジを行なったケ−ス。
・すべての改ページを解除
Sub Macro24()
    ActiveSheet.ResetAllPageBreaks
End Sub
PageTop
I7．関数

●「関数」のマクロ例
Sub Macro1()
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
End Sub
■ 本例は、セル"B5"へ数字合計の関数を入力したケ−ス。
PageTop
I8．名前
定義（Ｄ）
貼り付け（Ｐ）　
作成（Ｃ）　　　
引用（Ａ）　　　
ラベル（Ｌ）　　 


●「名前」のマクロ例


Sub Macro1()
    ActiveWorkbook.Worksheets("Sheet1").Names.Add Name:="aaa", RefersToR1C1:= _
        "=Sheet1!R1C1:R10C4"
    ActiveWorkbook.Worksheets("Sheet1").Names("aaa").Comment = "コメントなし"
End Sub
■ 本例は、(セル"A1:D10"に名前"aaa"を付けたケ−ス)
PageTop
I9．コメント

●「コメント」のマクロ例
Sub Macro1()
    Range("B3").AddComment
    Range("B3").Comment.Visible = True
    Range("B3").Comment.Text Text:="IRYO:" & Chr(10) & ""
    Range("A1").Select
End Sub
本例は、セル"B3"へコメントを追加したケ−ス
PageTop
I10．図
クリップア−ト（C）　　
ファイルから（F）　　
オ−トシェイブ（A）　　
ワ−ドア−ト（W）　　 


●「図」「オ−トシェイブ」のマクロ例
   ★　Excel2007では自動記録されない
   ★　Excel2010ではまた自動記録できるようになりました


Sub Macro1()
    ActiveSheet.Shapes.AddShape(msoShapeRectangularCallout, _
    116.25, 16.5, 115.5, 76.5).Select
    Range("G8").Select
End Sub


◆　上記をExcel2010で実行した場合バックカラーが付いている。
　　　また上記は四角形吹き出しの例ですがExcel2003では中に
　　　コメント文字を記入できたが、Excel2010では記入できない。
◆　上記をExcel2003で実行した場合バックカラーなし。
PageTop
I11．オブジェクト

●「オブジェクト」のマクロ例
Sub Macro1()
    ActiveSheet.OLEObjects.Add(ClassType:="MSGraph.Chart.8", Link:=False, _
        DisplayAsIcon:=False).Activate
    Range("H11:H12").Select
    Range("H12").Activate
End Sub
■ 本例は、オブジェクトダイアログからグラフを開いた例
PageTop
I12．ハイパ−リンク

●「ハイパ−リンク」のマクロ例
Sub Macro1()
     Range("B3").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www2s.biglobe.ne.jp/~iryo", TextToDisplay:="Excel VBA便利帳"
End Sub
■ 本例は、B3セルへＵＲＬ"http://www2s.biglobe.ne.jp/~iryo"貼りつけたケ−ス
■ハイパーリンクの削除は下記
   Range("B3").Select
    Selection.Hyperlinks.Delete
PageTop