| 投稿日 | ： 2004/01/19(Mon) 15:08 |
| 投稿者 | ： Yuuko |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ＶＢからエクセルシートに 画像を貼り付ける位置の指定方法。 |
ＶＢから エクセルを操作して シートに画像を貼り付けています。
マクロの記憶でコードを取ってみたのですが
下記のようなコードがでてきましたが・・・。
xlapp.Range("A1").Select
xlapp.ActiveSheet.Pictures.Insert("画像ファイル名").Select
xlapp.Selection.ShapeRange.IncrementLeft 305
xlapp.Selection.ShapeRange.IncrementTop 76.5
xlapp.Selection.ShapeRange.ScaleWidth 0.48, 0, 0
xlapp.Selection.ShapeRange.ScaleHeight 0.48, 0, 0
私が知りたいのは
一つは 移動量(.IncrementLeft , .IncrementTop)ではなくて 貼り付けたい位置の絶対値。
貼り付けたい位置は一定なので・・・
ですが これはセルを指定しておけば 移動量は常に一定と思われるので それでやってみます。
二つ目は 倍率(.ScaleWidth , .ScaleHeight)ではなくて サイズの絶対値の設定方法です。
画像のサイズまちまちなので 小さい物は大きく 大きい物は小さく 一定の大きさにしたい。
ご存知の方いらっしゃいませんか？
VB6 , Excel2000