Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26204 / 76738 ←次へ | 前へ→

【55866】Re:サイズが異なる画像の貼り付け
質問  mari  - 08/5/21(水) 15:11 -

引用なし
パスワード
   ▼n さん:
>こんにちは。
>>セルの高さ:120、幅:30(固定)として、そのセル内にサイズが異なる画像を貼り付けたいです。
>縦横比は保持しますか?保持しませんか?
>保持する場合は拡大|縮小率を考慮する必要がありますネ

▼n さん:
こんにちは。
縦横比を保持した状態で、セル内に貼りつけるにはどうしたら
良いでしょうか?
ご享受お願いいたします。

現在のプログラムだと、縦横比が変わってしまいます。。。↓

With .Pictures.Insert(画像ファイル名)
 .Left = ActCell2.Left + 12
 .Top = ActCell2.Top + 12
 .ShapeRange.LockAspectRatio = msoTrue '縦横比を固定
 .Width = ActCell2.Width * 0.8  'ここで横方向サイズ変更
 .Height = ActCell2.Height * 0.8  'ここで縦方向サイズ変更
 .ShapeRange.AlternativeText = 画像ファイル名
 .Placement = xlMoveAndSize
 .PrintObject = True
End With

2 hits

【55805】サイズが異なる画像の貼り付け mari 08/5/20(火) 10:40 質問
【55809】Re:サイズが異なる画像の貼り付け kanabun 08/5/20(火) 11:14 発言
【55812】Re:サイズが異なる画像の貼り付け mari 08/5/20(火) 11:55 質問
【55813】Re:サイズが異なる画像の貼り付け kanabun 08/5/20(火) 12:10 回答
【55819】Re:サイズが異なる画像の貼り付け mari 08/5/20(火) 15:32 お礼
【55814】Re:サイズが異なる画像の貼り付け n 08/5/20(火) 12:53 発言
【55866】Re:サイズが異なる画像の貼り付け mari 08/5/21(水) 15:11 質問
【55871】Re:サイズが異なる画像の貼り付け kanabun 08/5/21(水) 16:14 発言
【55873】Re:サイズが異なる画像の貼り付け n 08/5/21(水) 16:49 発言

26204 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free