2014-06-09 フォームに画像ファイル表示 VBA フォーム Excel Dim gazou As String gazou = ThisWorkbook.Path & "\gif\gazou.gif" Image1.Picture = LoadPicture(gazou)