

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


「15章.xlsm」ファイルをダウンロードする。