excelのセルに、貼付先をセルの値で判定して、画像を自動で貼り付けリサイズしたい

Question

前提・実現したいこと

excelのセルに入っている値を参照して、そのセルの下に事前に指定しているフォルダ内の
同じ名前の画像（.jpg）をセルの大きさに合わせてリサイズしたい。

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

オブジェクト変数または with ブロック変数が設定されていません。

該当のソースコード

Sub sample()
Dim objShape As Object
Dim strPath As String, strFileName As String
Dim strImgName As String

strPath = "c:￥画像データ￥"
strFileName = Dir(strPath & "*.jpg")

    Do Until Len(strFileName) = 0
        strImgName = Left(strFileName, Len(strFileName) - 4)
        
        Cells.Find(What:=strImgName).Activate
            ActiveCell.Offset(1, 0).Activate
    
        Set objShape = ActiveSheet.Shapes.AddPicture( _
                        Filename:=strPath & strFileName, _
                        LinkToFile:=False, _
                        SaveWithDocument:=True, _
                        Left:=ActiveCell.Left, _
                        Top:=ActiveCell.Top, _
                        Width:=ActiveCell.Width, _
                        Height:=ActiveCell.Height)
        
        strFileName = Dir()
    Loop

End Sub

試したこと

strPath = "c:￥画像データ￥
は元々　c:￥temp￥　で動いていました。

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

excel2007使用

Comments

[m.ts10806]

￥　←これ全角ですけど、本件解決したとしてまともに動くのでしょうか。

[japanosaka12345]

半角にするとスラッシュに変換されてしまったので念のため…

[m.ts10806]

間違いではないですよ。
むしろ全角のまま提示されているほうが問題です。
提示された情報が全てです。

[m.ts10806]

質問本文編集してください。

[meg_]

> strPath = "c:￥画像データ￥
> は元々　c:￥temp￥　で動いていました。
上記はパスを変えたら動かなくなった、ということが言いたいのでしょうか？

> オブジェクト変数または with ブロック変数が設定されていません。
このエラーはどの行で発生しているのでしょうか？

Answer 1

質問者様のコードを少し修正したら上手く動きましたが、
こちらでは如何でしょうか。

Sub sample()
    Dim objShape As Object
    Dim strPath As String, strFileName As String
    Dim strImgName As String
    strPath = "c:\画像データ\"
    strFileName = Dir(strPath & "*.jpg")
    Cells(1, 1).Select
    Do Until Len(strFileName) = 0
        strImgName = Left(strFileName, Len(strFileName) - 4)
        ActiveCell.Offset(1, 0).Activate
        Set objShape = ActiveSheet.Shapes.AddPicture( _
                        Filename:=strPath & strFileName, _
                        LinkToFile:=False, _
                        SaveWithDocument:=True, _
                        Left:=ActiveCell.Left, _
                        Top:=ActiveCell.Top, _
                        Width:=ActiveCell.Width, _
                        Height:=ActiveCell.Height)
        strFileName = Dir()
    Loop
End Sub

Answer 2

画像ファイルサイズアップ防止　VBA
こちらで同じような処理回答しているけど？