[[20050308143658]]　『画像のファイル名の取得』（55歳の初心者）　ページの最後に飛ぶ

『画像のファイル名の取得』（55歳の初心者）
sheet1のa1に画像を入れますb2に自動で画像のファイル名を表示したいのですけど
関数とかでできますか？よろしければ教えてください、おねがいします。

 挿入された後は、Excel上のオブジェクトになるので、ファイルとは関連がないので、
 マクロを使って画像挿入の処理を行い、
 その際にファイル名を取得するならできると思います。
  (INA)

そのやり方は初心者では無理ですね。
ありがとうございました。

 やる気さえあれば、けっして難しいものではないです。
 仕様上、マクロの使用が不可なのであればしかたありませんけど。
  (INA)

よろしければおしえてください。

 １．ALT+F11キーで、VBEを起動。
 ２．挿入－標準モジュール。
 ３．標準モジュールのコードウィンドウに以下のコードをコピー＆貼り付け。
 ４．EXCELに戻って、ツール＞マクロ＞マクロ＞から　sample　を実行。

 Sub Sampel()
 Dim myFile As String

    myFile = Application.GetOpenFilename("画像 ファイル (*.jpg), *.jpg", , "画像ファイルを選択して下さい。")
    If myFile = "False" Then Exit Sub

    Range("A1").Select
    ActiveSheet.Pictures.Insert (myFile)
    Range("B2").Value = Dir(myFile)
 End Sub

 以上です。    (INA)

できました、ほとうにすごいですね。
どうもありがとうございました。
欲張りすぎかもしれませんが反対にファイル名から呼び出す（画像）こともできるんでしょうか？よかったらお願いします。

 次のは、イベントマクロといって、セルの値の変化で自動実行されるマクロです。
 セル B2 にファイル名を入力して下さい。拡張子（.jpg）は不要です。
 画像のあるフォルダパスは、書き換えてください。　"C:\Data\" の部分です。

 １．シートタブで右クリック　→　コードの表示。
 ２．開かれたコードウィンドウに、以下のコードをコピペする。

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim myFile As String
    If Target.Address(0, 0) <> "B2" Then Exit Sub 'B2以外は終了
    If Target.Value = "" Then Exit Sub '空白のときは終了

             'フォルダの指定        
    myFile = "C:\Data\" & Range("B2").Value & ".jpg"

    If Dir(myFile) = "" Then
        Range("B2").Select
        MsgBox "ファイルが見つかりませんでした。"
    Else
        Range("A1").Select
        ActiveSheet.Pictures.Insert (myFile)
    End If    
 End Sub

   (INA)
INAさん親切に、丁寧に、教えてくださいましてありがとうございました。
さっそくやってみたいと思います、これからもよろしくお願いします。

コメント返信：

[ 一覧(最新更新順) ]

[[20050308143658]] 『画像のファイル名の取得』（55歳の初心者） ページの最後に飛ぶ

[[20050308143658]]　『画像のファイル名の取得』（55歳の初心者）　ページの最後に飛ぶ