質問編集履歴
2
関数名の変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
.
|
|
26
26
|
|
|
27
|
-
ret =
|
|
27
|
+
ret = a(path1, File_bmp1)
|
|
28
28
|
|
|
29
29
|
If ret = False Then
|
|
30
30
|
|
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
.
|
|
44
44
|
|
|
45
|
-
|
|
45
|
+
aの部分が色付けされ、
|
|
46
46
|
|
|
47
47
|
Functionまたわ変数が必要です。
|
|
48
48
|
|
1
エラーメッセージ追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -15,6 +15,38 @@
|
|
|
15
15
|
|
|
16
16
|
|
|
17
17
|
```
|
|
18
|
+
|
|
19
|
+
Sub m_000() '動作不安定
|
|
20
|
+
|
|
21
|
+
.
|
|
22
|
+
|
|
23
|
+
.
|
|
24
|
+
|
|
25
|
+
.
|
|
26
|
+
|
|
27
|
+
ret = bmp_flip_horizontal_by_mspaint(path1, File_bmp1)
|
|
28
|
+
|
|
29
|
+
If ret = False Then
|
|
30
|
+
|
|
31
|
+
MsgBox "処理を中断しました。", vbExclamation
|
|
32
|
+
|
|
33
|
+
Exit Sub
|
|
34
|
+
|
|
35
|
+
End If
|
|
36
|
+
|
|
37
|
+
Sheets("設定").Range("C7").Value = "左右反転_" & File_bmp1
|
|
38
|
+
|
|
39
|
+
.
|
|
40
|
+
|
|
41
|
+
.
|
|
42
|
+
|
|
43
|
+
.
|
|
44
|
+
|
|
45
|
+
bmp_flip_horizontal_by_mspaintの部分が色付けされ、
|
|
46
|
+
|
|
47
|
+
Functionまたわ変数が必要です。
|
|
48
|
+
|
|
49
|
+
とエラーがでます。
|
|
18
50
|
|
|
19
51
|
下記のソースコード以外にもマクロがたくさん組んであり、このマクロはその一部の部分なんですが、このマクロを実行するとペイントは立ち上がらず、エラー作業のほうに移ってしまいます。
|
|
20
52
|
|