Excelで画像表示ソフトを作ってみよう

Step 6 画像をイメージコントロールに表示

セルの画像ファイルの画像を、Imageコントロールに表示します。
セル位置を変更すると、自動的に画像が変わります。

Homeへ > Excelでアプリケーションソフト > 画像表示ソフト > Step6 画像をイメージコントロールに表示

スポンサーリンク






ユーザーフォームコード

下記のコードを追加してください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sfina As String
    
    'ファイル名を取得
    sfina = Range(Target.Address)
    'JPEG か BMP かチェック
    If LCase(Right(sfina, 4)) = ".jpg" Or LCase(Right(sfina, 4)) = ".bmp" Then
        'ファイル存在確認
        If ExDir(UserForm1.TextBox1 & sfina, vbNormal) <> "" Then
            Err.Number = 0
            '画像を表示
            UserForm1.Image1.Picture = LoadPicture(UserForm1.TextBox1 & sfina)
        End If
    End If
End Sub

スポンサーリンク


シート画面

セルの位置の画像を、Imageコントロールに表示します。
カーソルのセル位置を変更すると、自動的に画像が入れ替わります。

スポンサーリンク






Homeへ > Excelでアプリケーションソフト > 画像表示ソフト > Step6 画像をイメージコントロールに表示

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved