エクセル97での位置情報取得について

質問

エクセル９７での位置情報の取得について 再度質問させていただきます

エクセルのVBAにて、セルを無視したシート内の位置情報を
取得することは可能でしょうか？

たとえば一番左上を(0,0)とすると（50,100）などの
X軸、Y軸の数字の取得です。

あるA画像をX軸５０　Y軸１００の位置に挿入して、
　　B画像をX軸５０　Y軸１５０の位置に挿入して、
　　C画像をX軸５０　Y軸２００の位置に挿入したいと考えています。

画像を挿入した後の位置情報の取得ではなく、位置情報を指定してから
その場所に画像を挿入したいと考えています。

そのようなことは可能でしょうか？
セルを無視したワークシート上のX軸、Y軸の
位置情報の取得の仕方を教え下さい。

参考のURLでも構いません。宜しくお願い致します。

回答No.2

papayuka

こんにちは。

セルを無視してとは、マウスの位置とかを取得するって意味でしょうか？
だとするとWindowsAPIを使わないとダメかなって思います。

↓こんな感じじゃダメなのでしょうか？

Sub Test()
　 Dim myPict As Shape, py As Long, px As Long
　 Dim myFlName As String
　 ActiveCell.Activate
　 py = ActiveCell.Top
　 px = ActiveCell.Left
　 myFlName = Application.GetOpenFilename("JPEG (*.jpg),*.jpg", , "画像選択", , False)
　 If myFlName = "False" Then Exit Sub
　 Set myPict = ActiveSheet.Shapes.AddPicture(myFlName, msoTrue, msoFalse, px, py, 1, 1)
　　　 myPict.LockAspectRatio = msoTrue
　　　 myPict.ScaleHeight 1#, True
　　　 myPict.ScaleWidth 1#, True
End Sub

回答No.1

imogasi

>セルを無視したワークシート上のX軸、Y軸の位置情報の取得の仕方を教え下さい－－－＞
「取得」と言うからややこしくなるのではないですか。
「設定」と言えば良いのでは。
（オブジェクト）．Ｌｅｆｔ＝ＸＸＸＸ　－－Ｘ軸
（オブジェクト）．Ｔｏｐ＝ＸＸＸＸ　　－－Ｙ軸
で左上隅の座標を設定したことになる。ＴＷＩＰ値だが。
あと大きさは
（オブジェクト）．Ｈｅｉｇｈｔ＝ＸＸＸＸ
（オブジェクト）．Ｗｉｄｔｈ＝ＸＸＸＸ
数学の座標軸の第４象限のＹ軸値がプラスになったような具合。
これも勘違いかな？