VBA：画像の編集・上書き保存

実現したいこと

フォルダに格納されている画像を指定の編集のみをして、上書き保存をしたいです。

下記はあくまでイメージですが【右上のアイコン】【下部中央の現在地】の2か所を同色の背景で、不要な部分を消して保存したい。
※実際に処理したい画像でも消したいアイコンは、必ず決まった位置にあり、かつ同じサイズになります。
また、拡張子はpng・jpg・pdfの3パターンとなります。

該当のソースコード

VBA
1Sub Sample()
2　　Dim myPath As String, myBook As String
3
4　　myPath = "C:¥test¥"
5　　myBook = Dir(myPath & "a*.pdf")　
6
7　　Do Until myBook = ""
8　　　　Workbooks.Open myPath & myBook
9
10　　　　'ここで同色の背景で不要な部分を消す処理をしたい
11
12　　　　Workbooks(myBook).Close SaveChanges:=True　'保存して閉じる
13　　　　myBook = Dir
14　　Loop
15End Sub

確認事項

初心者のため、そもそもVBAでこのような処理が可能なのか分からず記載しています。
まずは可能な処理か、VBAでは実現不可能なのかをご教示いただけますと幸いです。

okakemetal

2023/01/10 11:48

変更してから、保存して閉じようとした場合、ダイアログが表示されると思いますのでそのお手当が必要ですね調べればすぐに見つかります

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

回答1件

VBAでの画像編集はやったことありませんが
実現可能かどうか、
という問に対しては
実現出来そう、な気がします。
以下のサイトが参考になりませんでしょうか
https://liclog.net/excel-vba-get-binary-data/
https://kajimublog.com/vba-png-binary-width-height/

投稿2023/01/10 10:53