1-15　フォームの背景に画像を設定する

1-15　フォームの背景に画像を設定するユーザーフォーム　　　2021.11.16

次の書籍の第1章～5章を公開しています。
「Excel VBA 逆引きで学ぶユーザーフォーム&コントロール」

目次　　前頁　　　次頁　　索引

Pictureプロパティは、フォームの背景画像を設定します。

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

Pictureプロパティをクリックすると[...]ボタンが表示されます。そのボタンをクリックすると、ピクチャ読み込みダイアログが表示されるので、任意の画像を選択します。選択できる主な画像形式はbmp,jpg,gifです。

画像が設定されると、Picureプロパティに（ビットマップ）と表示されます。
画像を削除する場合は、Pictureプロパティの（ビットマップ）をクリックし[Delete]キーを押します。

プログラムで設定するには、LoadPicure関数で画像を指定し、Pictureプロパティに設定します。

サンプルコード①

フォームに画像が設定されてなければ、デスクトップにある「logo.jpg」を設定、設定されていれば画像を削除

【UserForm1】

Private Sub UserForm_Click() 'フォーム背景に画像がなければ設定　あれば削除
    If Me.Picture Is Nothing Then
        Me.Picture = LoadPicture("C:\Users\ユーザー名\Desktop\logo.jpg")
    Else
        Me.Picture = Nothing
    End If
End Sub

フォームやコントロールに設定されている画像を、別のフォームやコントロールにコピーする方法もあります。

サンプルコード②

UserForm1の背景画像をUserForm2に設定

【UserForm2】

Private Sub UserForm_Click() 'フォーム1の背景画像をフォーム2に設定
    UserForm2.Picture = UserForm1.Picture
End Sub

　・1-16　背景画像のサイズモードを設定する
　・1-14　枠線の色を変える
　・第1章　ユーザーフォーム
　・目次
　・索引

書籍紹介140以上のサンプルファイル付き！

知りたいがすぐわかる！　やりたいがすぐできる！
「Excel VBA 逆引きで学ぶユーザーフォーム&コントロール」（Kindle版）
ユーザーフォームを扱えると、VBAでできることが大きく広がります！
本書では、知りたいこと、やりたいことから、逆引きで学びを深められます。

■ 購入：amazon

トップ > 逆引きで学ぶユーザーフォーム&コントロール > 1-15　フォームの背景に画像を設定する