Sub edit_pastechoice1()
	Selection.PasteSpecial _
	'張り付け
	Paste:= xlPasteAll, _ 'すべて
		'引数は他にxlPasteFormulas（数式）
		'xlPasteValues（値）
		'xlPasteFormats（書式)
		'xlPasteNotes（コメント)
		'xlDataValidation（入力規則）
		'xlPasteAllExceptBorders（罫線をのぞくすべて）
		'xlColumnWidths（列幅)
	'演算
	Operation:=xlNone, _ 'なし
		'引数は他にxlAdd（加算）
		'xlSubtract（減算）
		'xlMultiply（乗算）
		'xlDivide（除算）
		'xlNoneなどの引数はxlPasteSpecialOperationNoneでもOKです
        SkipBlanks:=False, _
	'空白セルを無視するチェックボックス
	Transpose:=False
	'行列を入れ替えるチェックボックス
End Sub

Sub edit_pastechoice2()
	ActiveSheet.Paste Link:=True
	'アクティブシートにリンク張り付けします
End Sub