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

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ