Type myT N(2) As Integer S(2) As String End Type Public myG As myT Sub Macro1() myG.N(0) = 0 Load UserForm1 UserForm1.CommandButton1.Caption = "OK" UserForm1.CommandButton2.Caption = "キャンセル" UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom UserForm1.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\バラ.jpg") UserForm1.Show dp = 1 Unload UserForm1 End Sub