VBA【Image(イメージ)コントロール】画像を表示する

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

imageコントロールの使いどころ

imageコントロールは画像をUserForm(ユーザーフォーム)上に表示できるので、社員名簿や商品名簿などに対して、社員の顔写真や商品の写真などを紐づけるのがおすすめです！

imageコントロールはデフォルトで用意されています。

イメージコントロールには様々なプロパティが用意されており細かく設定が可能になっています。よく使うであろうものをご紹介していきます。

picture(ピクチャー)プロパティはイメージコントロールに表示する画像を指定するプロパティです。pictureプロパティを指定する方法は二つあり

の二つの方法があります。コードの中で画像ファイルを設定したい場合は、 LoadPicture 関数を使用して Picture プロパティに画像を設定する必要があります。下記のコードはコードが記述されているbookと同じ階層にある【ロゴ.Jpg】を設定するコードです。

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\ロゴ.Jpg")

1	Image1.Picture = LoadPicture(ThisWorkbook.Path & "\ロゴ.Jpg")

イメージコントロールで読み込み可能なファイルは以下の通りです

PictureAlignmentプロパティは画像の表示位置を変更するプロパティです、PictureAlignmentプロパティは以下の五つの設定の中から自由に指定することができます。

定数	値	説明
fmPictureAlignmentTopLeft	0	左上端に配置
fmPictureAlignmentTopRight	1	右上端に配置
fmPictureAlignmentCenter	2(規定値)	中央配置
fmPictureAlignmentBottomLeft	3	左下端に配置
fmPictureAlignmentBottomRight	4	右下端に配置

PictureTilingプロパティは画像を繰り返し表示(タイル状)に敷き詰めたように表示する設定です(。-∀-)繰り返し表示をしたい場合は【True】を指定します。

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。