|
▼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
|
|