EXCEL VBA 挿入

エクセル
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[エクセル][EXCEL VBA 挿入]


挿入


'セルの挿入(右方向にシフト)
Selection.Insert Shift:=xlToRight
'行の挿入
Selection.EntireRow.Insert
'列の挿入
Selection.EntireColumn.Insert
'シートの挿入
Sheets.Add
'グラフの挿入
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("A1")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
'グラフのコマンドバーの隠す
Application.CommandBars("Chart").Visible = False
'改ページ
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
'改ページ解除
ActiveSheet.HPageBreaks(1).Delete
'関数の挿入
ActiveCell.FormulaR1C1 = "=VALUE(R[-1]C)"
'名前の定義
ActiveWorkbook.Names.Add Name:="abc", RefersToR1C1:="=Sheet2!R1C1:R5C1"
'図の挿入(位置指定)
ActiveSheet.Pictures.Insert("C:\tst\tst\tst\tst.jpg").Select
Selection.ShapeRange.IncrementLeft 260.25
Selection.ShapeRange.IncrementTop 95.25
'削除
Selection.Delete
'オートシェイプの挿入
ActiveSheet.Shapes.AddShape(msoShapeOval, 196.5, 81.75, 133.5, 42.75).Select
'オブジェクト(OLE etc)の挿入(位置指定)
ActiveSheet.OLEObjects.Add(ClassType:="SoundRec", Link:=False, _
DisplayAsIcon:=False).Activate
Selection.ShapeRange.IncrementLeft 11.25
Selection.ShapeRange.IncrementTop 81.75
'オブジェクト選択と位置変更
ActiveSheet.Shapes("Object 4").Select
Selection.ShapeRange.IncrementLeft 139.5
Selection.ShapeRange.IncrementTop 127.5
'ハイパーリンクの設定
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.abc.co.jp/"






Production Japan Import Application. Since 1998