投稿日 | : 2003/03/01(Sat) 19:06 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 画像挿入 |
試して見ましたが結構面倒です。
>良い方法をご存じでしたらご教授下さい。
良い方法は思い浮びませんでした。
1.セルサイズを取得
xlSheet.Range("B2:B2").Width
2.セルサイズをピクセル単位に変換
Me.ScaleX(Wid, vbPoints, vbPixels)
3.セルに画像を貼付
4.同じ画像を Picture1に非表示で読込み(VB上で)
5.その画像のサイズをピクセル単位で求める(VB上で)
Picture1.ScaleWidth
6.縮小率を計算する
7.画像を縮小
xlApp.Selection.ShapeRange.ScaleWidth Writu, True, msoScaleFromTopLeft