VBA 画像貼り付けのオプション指定法

VBA初心者です。MS Office 201で，Excelに画像を貼り付けるとき，アスペクト比を保って幅を指定，位置をセルの位置で指定，名前を付けたいので，ネットを参考にして，以下の通りにしました。 Range("A6").Select 'A6の位置を指定 ActiveSheet.Pictures.Insert(myFile).Select 'myFileはあらかじめ設定 With ActiveSheet.Shapes(3) .LockAspectRatio = True .Width = 160 .Name = "Pict01" '名前はPict01 End With ここで，Shapes(3)の3は，画像やボタンがこのシートで3番目だからです。しかし，マクロ実行前に，ボタン等を増やすと変わってきてしまいます。この(3)の様な指定なしにできませんでしょうか。