回答編集履歴
1
Test_Sample_Miniature部分
test
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
```
|
|
4
4
|
|
|
5
|
-
Sub
|
|
5
|
+
Sub Test_Sample_Miniature()
|
|
6
6
|
|
|
7
7
|
Set ws = CreateObject("WScript.Shell")
|
|
8
8
|
|
|
@@ -260,7 +260,7 @@
|
|
|
260
260
|
|
|
261
261
|
|
|
262
262
|
|
|
263
|
-
Public Function
|
|
263
|
+
Public Function Test_Sample_Miniature() As Boolean
|
|
264
264
|
|
|
265
265
|
'-------------------------------------------
|
|
266
266
|
|