Sub Macro1() Sheet1.Image1.PictureSizeMode = fmPictureSizeModeZoom Sheet1.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\バラ.jpg") dp = 1 End Sub