VBA～ユーザーフォームのイメージ内を埋めるように画像を並べて表示しよう～Excel

ユーザーフォームのイメージ内を埋めるように画像を並べて表示したい場合はPictureTilingプロパティをTrueに設定します。

書き方

オブジェクト名.PictureTiling = True

オブジェクト名はユーザーフォームのオブジェクト名と、イメージのオブジェクト名を指定します。オブジェクト名の確認方法は作成したユーザーフォームファイルをクリックするとユーザーフォームが表示されます。ユーザーフォーム全体を選択するとプロパティウィンドウにオブジェクト名という項目があるので、それがユーザーフォームのオブジェクト名になります。次にイメージを選択すると同じようにイメージのオブジェクト名が確認できます。プロパティウィンドウが表示されていない場合はメニューの表示からプロパティウィンドウをクリックすると表示されます。

UserForm1というユーザーフォームを作成し、Image1というイメージを設定した場合、下のコードを実行するとイメージ内で画像が並んで表示されます。。

Sub test1()

Load UserForm1
UserForm1.Image1.Picture = LoadPicture("c:\サンプル1.jpg")
UserForm1.Image1.PictureTiling = True
UserForm1.Show

End Sub

プロパティウィンドウで設定

作成したユーザーフォームのファイルをクリックしプロパティウィンドウの選択欄からイメージを選択します。プロパティウィンドウにPictureTilingの項目があるのでクリックすると▼マークが表示されるのでクリックしてTrueを選択してください。プロパティウィンドウが表示されていない場合はメニューの表示からプロパティウィンドウをクリックすると表示されます。