[[20161018175046]] 『画像貼り付けVBAのコードについて』(ディアンジェロ) >>BOT

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

 

『画像貼り付け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


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

コメント返信:

[ 一覧(最新更新順) ]


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