教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA フォーム&コントロール】フォームプロパティ内にある[PictureAlignment]の使い方を知りたいです。教えて!

f:id:m_kbou:20200417091453p:plain

フォームを新規で作成した場合、VBE画面左下プロパティ内にある[PictureAlignment]の使い方について紹介します。

 

 

フォームプロパティ内にあるPictureAlignmentとは

以下のフォームプロパティ内の赤枠箇所が[PictureAlignment]となります。PictureAlignmentはフォームの背景に挿入した画像位置を設定する事ができます。

f:id:m_kbou:20200628060837p:plain

PictureAlignmentに定義する設定値は以下一覧の通りとなります。

f:id:m_kbou:20210705165920p:plain

 

PictureAlignmentを設定する方法

(1)フォームプロパティ内のPictureAlignmentをクリックすると▼ボタンが表示されます。

f:id:m_kbou:20200417091704p:plain

(2)▼ボタンをクリックするとプルダウンリストが表示されます。(※プルダウンリストには上記の設定値一覧が表示されます。)

f:id:m_kbou:20210705165950p:plain

画像の位置を左上端に合わせて配置する方法

(3)今回は画像の位置を左上端に合わせて配置するため、PictureAlignmentを「0-fmPictureAlignmentTopLeft」に設定します。設定後に一度フォーム上でクリックをした後、上部の<実行>ボタン(▶)をクリックします。

f:id:m_kbou:20210705170105p:plain

(4)フォームが表示され、背景画像が左上端に合わせて配置された事が確認できます。

f:id:m_kbou:20200417093007p:plain

画像の位置を右上端に合わせて配置する方法

(5)今回は画像の位置を右上端に合わせて配置するため、PictureAlignmentを「1-fmPictureAlignmentTopRight」に設定します。設定後に一度フォーム上でクリックをした後、上部の<実行>ボタン(▶)をクリックします。

f:id:m_kbou:20210705170148p:plain

(6)フォームが表示され、背景画像が右上端に合わせて配置された事が確認できます。

f:id:m_kbou:20200417173215p:plain

画像の位置を中央に配置する方法

(7)今回は画像の位置を中央に合わせて配置するため、PictureAlignmentを「2-fmPictureAlignmentCenter」に設定します。設定後に一度フォーム上でクリックをした後、上部の<実行>ボタン(▶)をクリックします。

f:id:m_kbou:20210705170039p:plain

(8)フォームが表示され、背景画像が中央に配置された事が確認できます。

f:id:m_kbou:20200417174429p:plain

画像の位置を左下端に合わせて配置する方法

(9)今回は画像の位置を左下端に合わせて配置するため、PictureAlignmentを「3-fmPictureAlignmentBottomLeft」に設定します。設定後に一度フォーム上でクリックをした後、上部の<実行>ボタン(▶)をクリックします。

f:id:m_kbou:20210705170231p:plain

(10)フォームが表示され、背景画像が左下端に合わせて配置された事が確認できます。

f:id:m_kbou:20200417174739p:plain

画像の位置を右下端に合わせて配置する方法

(11)今回は画像の位置を右下端に合わせて配置するため、PictureAlignmentを「4-fmPictureAlignmentBottomRight」に設定します。設定後に一度フォーム上でクリックをした後、上部の<実行>ボタン(▶)をクリックします。

f:id:m_kbou:20210705170251p:plain

(12)フォームが表示され、背景画像が右下端に合わせて配置された事が確認できます。

f:id:m_kbou:20200417175054p:plain

背景に挿入した画像位置を設定する方法についての説明は以上です。

 

おわりに

今回はPictureAlignmentの設定方法について説明しました。是非活用してみて下さい。