Sub view_zoom()
	ActiveWindow.Zoom = 200
	'現在のウィンドウを200%にズームさせます
	'指定できる範囲は10〜400です
	'Trueを指定すると選択範囲がウィンドウサイズにあわせてズーム値が変わります
End Sub