Private Sub UserForm_Initialize()
Dim strImgPath As String
strImgPath = "C:\Users\HIDE\Pictures\新しいフォルダー\1.jpg"
With UserForm1.Image1
.Picture = LoadPicture(strImgPath)
.PictureSizeMode = fmPictureSizeModeClip '見える範囲だけ表示
' .PictureSizeMode = fmPictureSizeModeStretch '引き延ばす(縦横比が崩れる)
' .PictureSizeMode = fmPictureSizeModeZoom 'ズームして全体表示(縦横比維持)
End With