画像の表示位置を指定する

イメージの中で画像を表示する位置を設定します。

表示位置の設定には「PictureAlignment」プロパティを使います。

object.PictureAlignment = fmPictureAlignment

背景に表示するピクチャの位置を設定します。

引数:
  object  設定するオブジェクトを指定します。
  fmPictureAlignment  ピクチャをコントロールのどこに合わせて配置する
    かを指定します。

設定可能な値は次の通りです。

定数	値	境界線の状態
fmPictureAlignmentTopLeft	0	左上端に合わせて配置します
fmPictureAlignmentTopRight	1	右上端に合わせて配置します
fmPictureAlignmentCenter	2	中央に配置します
fmPictureAlignmentBottomLeft	3	左下端に合わせて配置します
fmPictureAlignmentBottomRight	4	右下端に合わせて配置します

デフォルトの値は「fmPictureAlignmentCenter」でイメージの中央に画像を表示します。縦方向及び横方向を個別には設定できず、中央か四隅のどこかに合わせて配置するしかありません。

実際の使い方としては次のようになります。

sampleForm.flowerImage.PictureAlignment = fmPictureAlignmentCenter

サンプルプログラム

では簡単なサンプルで試してみましょう。

testImage4.bas

Sub テスト()
    Load sampleForm
    sampleForm.flowerImage.Picture = LoadPicture("c:¥tmp¥flower.jpg")
    sampleForm.flowerImage.PictureAlignment = fmPictureAlignmentBottomLeft
    sampleForm.flowerImage2.Picture = LoadPicture("c:¥tmp¥flower.jpg")
    sampleForm.flowerImage2.PictureAlignment = fmPictureAlignmentTopRight
    sampleForm.Show
End Sub

上記マクロを実行すると次のように表示されます。

プロパティウィンドウで値を指定する

「PictureAlignment」プロパティについてはプロパティウィンドウで指定が出来ますので、値が決まっている場合は設計の時点で設定をしておくことも可能です。プロパティウィンドウの「PictureAlignment」の箇所の右側にある下向き矢印をクリックして値を選択して下さい。

OfficePro