16.図のコピー
Application.Dialogs(xlDialogCopyPicture).Show