Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26273 / 76807

←次へ　｜　前へ→


	【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

1 hits

▼

【55805】サイズが異なる画像の貼り付け mari 08/5/20(火) 10:40