[[20161018175046]]　『画像貼り付けVBAのコードについて』（ディアンジェロ）　ページの最後に飛ぶ

『画像貼り付けVBAのコードについて』（ディアンジェロ）

スクロールボタンと連動してシート内容が変わる（他のシートから参照する）シートが存在します。このときスクロールボタンの押上，または，押下によってセルI1の値が変化します。

このときこのスクロールボタンと連動させてローカルフォルダに存在する画像から（このフォルダへのリンクはセルD29に記載しています)セルD30に記述してあるファイル名(このフォルダ名の中の変数もスクロールボタンまたはセルI1とリンクしている)と合致するものを選び，特定のセル範囲(B31～I43)に縦横比を変更することなく最大の縮尺でコピー＆ペーストするVBAを作成したいのですが，教えて頂けますでしょうか。なおスクロールボタンを押上，または押下したときに，画像が自動で切り替わる仕様にしたいと考えています。

＜使用 Excel：unknown、使用 OS：unknown ＞

http://www.excel.studio-kazu.jp/kw/20080209021147.html

現時点では上記のURLと同様にしてコマンドボタンを配置することで，

特定のセル範囲に画像をコピー&ペーストすることはできました。

しかし，この場合このコマンドボタンはスクロールボタンとリンクしていないため

スクロールボタンによってページを切り替えた場合，画像は自動で切り替わることができない状況です。（再度，画像を削除し，コマンドボタンを実行しなければなりません。)

データ数がかなりの量あるため，これを自動で切り替わるようにしたいです。
（ディアンジェロ） 2016/10/18(火) 18:45

また下記のコードを用いています。

Private Sub CommandButton1_Click()

 Const foldnm = "ローカルフォルダのリンク"

    Dim org As Range

    Set org = Range("b31:i43")

    On Error Resume Next

    With ActiveSheet.Pictures.Insert(foldnm & Range("d30").Value)

       .Left = org.Left

       .Top = org.Top

       .Width = org.Width

       .Height = org.Height

       End With

    On Error GoTo 0

End Sub

（ディアンジェロ） 2016/10/18(火) 18:50

重複質問になりましたので，申しわけありませんが最新の質問にご回答お願い致します。

コメント返信：

[ 一覧(最新更新順) ]

[[20161018175046]] 『画像貼り付けVBAのコードについて』（ディアンジェロ） ページの最後に飛ぶ

[[20161018175046]]　『画像貼り付けVBAのコードについて』（ディアンジェロ）　ページの最後に飛ぶ