【VBA】マクロで指定したパスの画像を貼り付けたい

Question

以下のマクロで指定したパスのpngファイルを指定した位置（B3）に貼り付けるように作成しようとしたのですが、貼り付けた画像が以下のように（画像１）なってしまいます。
MACだからうまく動いてくれないのか、それかコード次第ではうまく動いてくれるのか調べたのですが、いまいちわからなかったので、有識者の方よければ知恵をお貸しください。
よろしくお願いします。

動作環境はMACのエクセルになります。

画像１

試したコード

Sub Harituke()
    With ActiveSheet.Pictures.Insert("ここにファイルのパスを入力")
        .Top = Range("B3").Top
        .Left = Range("B3").Left
    End With
End Sub

Answer 1

ご提示のコードを当方のMac環境で実行したらちゃんと貼り付きました。
ファイルのサイズとかフォルダの場所とかが関係するのかも。

マクロの記録でやりたいことを実際に操作してコード化してみるとヒントがあるかもしれません。

Answer 2

AddPicture を試してみてはどうでしょうか。

エクセルVBAで画像ファイルをシートに追加するAddPictureメソッドの使い方