VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/03/01(Sat) 19:06
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： 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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -