マクロを用いてペイントで画像を左右反転させたい

前提・実現したいこと

前提として、ファイルに保存されているbmp画像を左右反転させるマクロを作成している。
従来は、Microsoft Office Picture Managerを用いたマクロで実現させていたがwindous10に更新したため、Microsoft Office Picture Managerが入っていないPCが増え、ペイントで左右反転させるマクロを組みたい。
ExcelシートのC4に画像の保存パス、C6に画像ファイルの名前が入っています。

発生している問題・エラーメッセージ

Sub m_000() '動作不安定
.
.
.
ret = a(path1, File_bmp1)
    If ret = False Then
        MsgBox "処理を中断しました。", vbExclamation
        Exit Sub
    End If
    Sheets("設定").Range("C7").Value = "左右反転_" & File_bmp1
.
.
.
aの部分が色付けされ、
Functionまたわ変数が必要です。
とエラーがでます。
下記のソースコード以外にもマクロがたくさん組んであり、このマクロはその一部の部分なんですが、このマクロを実行するとペイントは立ち上がらず、エラー作業のほうに移ってしまいます。
VBA初心者であまりコードの意味だとかが分かっていませんので、なぜペイントが立ち上がらないのかもわかりません。
原因がわからないので、調べるにも手が止まってしまいました。。

また、ほかに簡単に左右反転させる方法などがあれば教えていただきたいです。

該当のソースコード

VBA
1Sub a(Pathname As String, Filename As String)    'by MS_Paint
2'debug    Pathname = Sheets("設定").Range("C4").Value  'Path
3'debug    Filename = Sheets("設定").Range("C6").Value  '基本bmp（左右反転必要）
4    Dim Path As String, str As String
5    Dim lngRc
6
7
8    lngRc = Shell("C:\windows\system32\mspaint.exe " & Pathname & "\" & Filename, vbNormalFocus)
9    Call Sleep(STIME)
10    AppActivate lngRc  '    AppActivate ("無題 - ペイント")
11    Call Sleep(STIME)
12    SendKeys "%hroh", True  
13    Call Sleep(STIME)
14
15    SendKeys "%fa", True
16    Call Sleep(STIME)
17    AppActivate ("名前を付けて保存")
18    Call SendMessageAPI("名前を付けて保存", 3, Pathname & "\反転_" & Filename)
19    Call Sleep(STIME)
20    Call ClickAPI("名前を付けて保存", 20)
21    Call Sleep(STIME)
22    SendKeys "%{F4}", True
23    Call Sleep(STIME)
24End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

行動規範の内容に同意します

回答1件

ベストアンサー

###回答
実際に動かして、うまくいった方法とエラー原因を回答いたします。

###「Functionまたわ変数が必要です」エラー
このエラーはaメソッド内の下記の関数が使えないからだと思われます。
・SLeep関数
・SendMessageAPI関数
・ClickAPI関数

Sleep関数を使うために、プログラム最初で、ライブラリをインポートしました。
他の2個の関数は私も使った事ないので、定義方法がわかりませんでしたので、SendKeysで代用しました。

各処理の間にSleepを設けているのは、アプリが起動する時間や、ショートカットキーを送る処理の時間だけ待つ必要があるからです。設定したSleep時間が短すぎると、処理時間中でもショートカットキーを送ってしまうため、エラーになります。
私の環境では、500msで正常に動作しました。

※このプログラムでは、VBAがペイントにショートカットキーを送信して、操作しているので、プログラム実行中に操作するとエラーが出る可能性があります。

VBA
1#If VBA7 Then
2'64ビット
3Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
4#Else
5'32ビット
6Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
7#End If
8
9Sub ReversedImage()
10
11    Dim FileDir As String
12    Dim FileName As String
13    Dim red As Boolean
14    
15    FileDir = Worksheets("Sheet1").Range("C4").Value
16    FileName = Worksheets("Sheet1").Range("C6").Value
17    
18    Call a(FileDir, FileName)
19
20End Sub
21
22Sub a(Pathname As String, FileName As String)    'by MS_Paint
23    Dim Path As String, str As String
24    Dim lngRc
25    Dim STIME As Long
26    Dim SaveName As String
27    STIME = 500 '各処理の間の待ち時間（msec）
28
29
30    lngRc = Shell("C:\windows\system32\mspaint.exe " & Pathname & "\" & FileName, vbNormalFocus)
31    Call Sleep(STIME)
32    
33    AppActivate lngRc  'ペイントをアクティブにする
34    Call Sleep(STIME) '500ms待つ
35    
36    SendKeys "%hroh", True 'ペイントに左右反転のキーを送信
37    Call Sleep(STIME) '500ms待つ
38
39    SendKeys "%fa", True 'ペイントに[名前をつけて保存]のキーを送信
40    Call Sleep(STIME) '500ms待つ
41       
42    SaveName = Pathname & "\反転_" & FileName '保存先
43    
44    SendKeys SaveName '保存ダイアログに入力
45    Call Sleep(STIME)
46
47    SendKeys "{Enter}" 'Enterキーを押す
48    Call Sleep(STIME)
49    
50　　SendKeys "y" '[上書き保存]ダイアログが出た時に上書きする
51    
52    Call Sleep(STIME)
53    SendKeys "%{F4}" 'ペイントを終了
54    
55End Sub