画像貼り付け（Shapes）について

Question

Shapesを使って、セル位置K3を起点に画像を貼り付けたいのですが、A1を起点に張り付けられてしまいます。
作動させると問題なく通過するのですが、貼り付け位置を制御できません。

ActiveSheet.Shapes.AddPicture _
    Filename:=path & "\" & kendata & "\" & sidata & "\" & "表紙.jpg", _
          LinkToFile:=True, _
          SaveWithDocument:=True, _
          Left:=Range("k3"), _
          Top:=Range("k3"), _
          Width:=100, _
          Height:=80

原因がわからなく質問いたしました。
また、今のところ問題ないのですが、width=100　、Height＝80のサイズを超えない範囲で縦横比を変えずに表示させたいのですが、何かいい方法を有りましたらご教授いただけると嬉しいです。

よろしくお願いします。

Answer 1

位置はこちらで。

Left:=Range("k3").Left, _
Top:=Range("k3").Top, _

縦横比についてはこちらが参考になるでしょうか。
Excelのセル幅に合わせて縦横比を維持したまま画像サイズを自動調整する方法

Comments

[ice930]

基本的な設定が出来ていませんでした・・・
ありがとうございます！
参考のサイトのコードは、自分のレベルが上がったら挑戦してみようと思います。

Answer 2

下記が参考になりますでようか・・。

セルのサイズに合わせて画像のサイズを変更する

Comments

[ice930]

紹介いただいたサイトを参考にさせていただきました。
回答ありがとうございました！