[[20100227215919]] 『セルで指定した画像を表示』(しょう) >>BOT

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

 

『セルで指定した画像を表示』(しょう)

はじめましてよろしくお願いします。

Sheet2に300件程のデータ表があり、Sheet1のA1にb入力すると指定した

bフ情報をVLOOKUP関数で表示できるようにしてあります。

Sheet2のセルに\A\B.JPGと指定した画像をSheet1のImage1に表示させたいのですが・・・

以前はで多数が少なかったので下記のようにリストボックスから選択して表示していました。

Private Sub ListBox1_Click()

    Dim PicPath As String
    PicPath = ThisWorkbook.Path & Range("sheet2!G4").Offset(ListBox1.ListIndex).Value
    ActiveSheet.Image1.Picture = LoadPicture(PicPath)

A1にb入力しEnterキーを押してマクロ始動と自分なりに考えてみたのですが、

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim PicPath As String
    If Target.Address = "$A$1" Then
    PicPath = ThisWorkbook.Path & Range("Sheet2!G4").Offset.この部分を
  どうしたらよいのでしょうか?
    ActiveSheet.Image1.Picture = LoadPicture(PicPath)

ご教授願います。

 Excel2007    OS Windows Vista


 空いている邪魔に成らないセル(Image1の下のセルとか)に
 一旦VLOOKUP関数で「\A\B.JPG」を表示させておいて
 そのセルの値を使うことにされてみるのはどうでしょう?

 PicPath = ThisWorkbook.Path & Range("そのセル").Value
 こんな感じで、[ブックが有るフォルダ\A\B.JPG] と言う Pathが出来ると思います。

 わざわざ隠さなくても
 >指定したbフ情報をVLOOKUP関数で表示できるようにしてあります。 
 この情報の中に、画像が保存されている場所が
 一緒に表示されていても良いのではないかとは思いますが。。。

 (HANA)

HANAさんありがとうございました。

さっそく試してみると思いどおり表示することができました。

完成に一歩近づき安心して寝られます。今後もよろしくお願いします。

(しょう)


[[20100301164155]] 『セルで指定した画像を表示 2』(しょう)

コメント返信:

[ 一覧(最新更新順) ]


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