VBScript　画像繰り返し貼り付け処理を同期処理による画像貼り付けに変更

VBAで画像貼り付けに非常に時間がかかるため、VBAからVBSを呼び出し、そのVBSで特定の画像をエクセルに貼り付けようとしております。
VBSでは同期処理が可能とのことで、早速実装しようと思いますが、うまくいきません。

繰り返し処理を500とし、画像を500枚特定のシートに貼り付けます。

for i = 1 to 500
sh.Shapes.AddPicture "●\Desktop\image2.png", True, True, 100, 100, 70, 70
next

上記処理をマルチスレッドまたはプロセスで実行できないでしょうか？

j=0
 Do 
        ln=GetExitCodeProcess(sh.Shapes.AddPicture "●\Desktop\image2.png", True, True, 100, 100, 70, 70)    
        j=j+1
 Loop While j = 500

宜しくお願いいたします。

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

回答1件

ベストアンサー

何が上手くいかないのかよくわかりませんが、
そもそもからしてsh.Shapes.AddPictureがExcel(オブジェクト)経由でしか使えないはずですし、
ボトルネックがExcel側なのでVBSでマルチプロセスしても意味がないように思います。

GetObject(ファイル名)でExcelファイルのオブジェクトを新たにExcelを開くことなくVBSから取れますが、非同期は無理そう(未確認)
https://qiita.com/nukie_53/items/12cc0a3fc295a446a045

VBS使わなくてもApplication.OnTimeを活用すればVBAでマルチプロセスができるそうですがあんまり早くならなさそう。少なくとも500個も立ち上げようとしたらそれだけでパンクする(VBSもだけど)。
https://excel-ubara.com/vba_class/VBA_CLASS_06.html

投稿2022/07/22 03:19