[Access VBA]画像リサイズしたものを保存したい

いつもお世話になっております。
表題の件について、ご教示お願いいたします。

とある画像のファイルパスを読み込んだ時に
その画像を小さくしてから、再度ファイルに保存をしたいです。

https://detail.chiebukuro.yahoo.co.jp/qa/questio …

上記URLにあるベストアンサーを確認しましたが、どのように取り入れればよいかわかりませんでした。
また、質問者のURLにあるベストアンサーの方も試しましたが、質問者同様にコンパイルエラーが発生しました。

copilotを使用して下記コードを教えてもらいましたが、
Set img = img.Resize(newWidth, newHeight)　の箇所で
「実行時エラー'438'

オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
と表示されます。

Sub ResizeImage()
Dim imgPath As String
Dim newImgPath As String
Dim img As Object
Dim newWidth As Long
Dim newHeight As Long

' 画像のパスを指定
imgPath = "C:\path\to\your\image.jpg"
newImgPath = "C:\path\to\your\resized_image.jpg"

' 画像をロード
Set img = LoadPicture(imgPath)

' 新しいサイズを指定（例：幅を半分にする）
newWidth = img.Width / 2
newHeight = img.Height / 2

' 画像のサイズを変更
Set img = img.Resize(newWidth, newHeight)

' 新しい画像を保存
SavePicture img, newImgPath

MsgBox "画像の解像度を変更しました。"
End Sub

ツール>参照設定>Microsoft Windows Image Acquisition Libary v2.0
もいれています。

よろしくお願いいたします。

No.1 回答者： bonaron 回答日時： 2024/12/27 14:16

お気付きかどうか分かりませんが

参考にされているコードで
うまくいかないのは Access のコード
成功しているのは Excel のコードです。

どうしても Access でやらなければならない理由がなければ
Excel でやったらうかがですか？

Access から VBA で Excel を操作することもできますし。