[リストへもどる]
一括表示
投稿時間：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

投稿時間：2004/01/19(Mon) 15:29
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: ＶＢからエクセルシートに　画像を貼り付ける位置の指定方法。
元の画像のサイズを取得して、表示したいサイズとの比率を求めて下さい。
そして、比率に合せて拡大・縮小表示をして下さい。
ここのExcel＆Word関係の［Excelのシートに画像を表示（３方法）及びサイズ変更］を
参考にして下さい。

投稿時間：2004/01/19(Mon) 15:34
投稿者名：Yuuko
Ｅメール：
ＵＲＬ　：
タイトル：解決しました。
花ちゃんさん　ありがとうございました。
いつも　助かってます。