47.図の挿入
Application.Dialogs(xlDialogInsertPicture).Show