[[20170316220649]] 『結合セルに画像の縦と横の縮尺を保持して挿入する』(右近) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『結合セルに画像の縦と横の縮尺を保持して挿入する』(右近)

皆さんに教えて頂きたいことがあります。
以下のマクロは、結合したセルに画像を挿入して、縦と横の縮尺を保持して、できるかぎりその結合セルに大きく挿入するといものですが、これを挿入しようとすると、縦と横の縮尺が縦長になってしまったりしてしまいます。
できれば、横幅はその結合セルの横幅に最大限入れて、縦はそれを保持して入れる形にしたいのです。
皆さんのよきアドバイスをお待ちしています。

 縦と横の縮尺を保持する

    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 >


mySPを貼っている部分も欲しいですね。これだけでは何もできないコードになっているので、試しにくいです。

考え方だけ書きますが、縦横比固定にしておいて、まず画像幅を表示幅に合わせます。次に、画像高さと表示高さを比較し、表示高さより大きいようならば、画像高さを表示高さに合わせます。これで表示領域内ぎりぎりで、縦横比の変わらない画像になる事でしょう。
(???) 2017/03/17(金) 12:48


私はVectorにあるものを利用させてもらいましたよ
http://www.vector.co.jp/soft/win95/business/se450128.html

ただ、Windows10とExcel2016では圧縮に失敗しましたのメッセージが出て使えなくなってしまいましたが・・・。
(まろん) 2017/03/17(金) 16:31


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.