[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『結合セルに画像の縦と横の縮尺を保持して挿入する』(右近)
皆さんに教えて頂きたいことがあります。
以下のマクロは、結合したセルに画像を挿入して、縦と横の縮尺を保持して、できるかぎりその結合セルに大きく挿入するといものですが、これを挿入しようとすると、縦と横の縮尺が縦長になってしまったりしてしまいます。
できれば、横幅はその結合セルの横幅に最大限入れて、縦はそれを保持して入れる形にしたいのです。
皆さんのよきアドバイスをお待ちしています。
縦と横の縮尺を保持する
myHH = Target.Height / mySP.Height myWW = Target.Width / mySP.Width If myHH > myWW Then mySP.Height = mySP.Height * myWW mySP.Width = Target.Width Else mySP.Height = Target.Height mySP.Width = mySP.Width * myHH End If
< 使用 Excel:Excel2013、使用 OS:Windows7 >
考え方だけ書きますが、縦横比固定にしておいて、まず画像幅を表示幅に合わせます。次に、画像高さと表示高さを比較し、表示高さより大きいようならば、画像高さを表示高さに合わせます。これで表示領域内ぎりぎりで、縦横比の変わらない画像になる事でしょう。
(???) 2017/03/17(金) 12:48
ただ、Windows10とExcel2016では圧縮に失敗しましたのメッセージが出て使えなくなってしまいましたが・・・。
(まろん) 2017/03/17(金) 16:31
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.