エクセルの画像データーを表示するには (ID:108113)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士様 早速ご教授頂きましてありがとうございました。 画像データーは単純に「鳥」の行には「鳥の写真」というものです。画像が存在しないときも想定したときの動作がうまくいかなかったのですが、ご指摘頂いたように修正しましたところ、エラーもなく希望した通りに動作しました（画像形式以外のファイルも入れてみました）。 下記の式になりました。ありがとうございました。 '画像の表示 Private Sub Command2_Click() Dim Path As String '以下絶対パス取得コード Path = App.Path If Right(Path, 1) = "\" Then Path = Path & Text4.Text Else Path = Path & "\" & Text4.Text End If Dir ("Text4.Text") 'ファイルの存在チェック If Text4.Text <> "" Then On Error Resume Next 'エラー処理 Set Picture1.Picture = LoadPicture(App.Path + "\" + Text4.Text) Picture1.Visible = True End If End Sub