Excel ユーザーフォームの画像を画像枠のどこに表示するか位置を設定する-PictureAlignment

Excelで、ユーザーフォームの画像枠内での画像の位置を設定する記録です。

画像の位置を指定するには「PictureAlignment」を使います。

手動で設定する方法とVBAで設定する方法です。

< スポンサーリンク >

手動で画像位置のプロパティを設定

VBE上で画像枠をアクティブにし、プロパティウィンドウのボタンをクリックします。

プロパティウィンドウの［PictureAlignment］欄を「fmPictureAlignmentTopLeft」に設定すると左上に表示されます。

プロパティウィンドウの［PictureAlignment］欄を「fmPictureAlignmentTopRight」に設定すると右上に表示されます。

プロパティウィンドウの［PictureAlignment］欄を「fmPictureAlignmentCenter」に設定すると中央に表示されます。

プロパティウィンドウの［PictureAlignment］欄を「fmPictureAlignmentBottomLeft」に設定すると左下に表示されます。

プロパティウィンドウの［PictureAlignment］欄を「fmPictureAlignmentBottomRight」に設定すると右下に表示されます。

VBAで画像位置のプロパティを設定

Initializeイベントを使って設定してみます。

ユーザーフォームをダブルクリックします。

右側のプロシージャボックスで「Initialize」を選択します。

画像枠内で左上に表示するコードです。

Private Sub UserForm_Initialize()
    Image1.PictureAlignment = fmPictureAlignmentTopLeft
End Sub

画像枠内で右上に表示するコードです。

Private Sub UserForm_Initialize()
    Image1.PictureAlignment = fmPictureAlignmentTopRight
End Sub

画像枠内で中央に表示するコードです。

Private Sub UserForm_Initialize()
    Image1.PictureAlignment = fmPictureAlignmentCenter
End Sub

画像枠内で左下に表示するコードです。

Private Sub UserForm_Initialize()
    Image1.PictureAlignment = fmPictureAlignmentBottomLeft
End Sub

画像枠内で右下に表示するコードです。

Private Sub UserForm_Initialize()
    Image1.PictureAlignment = fmPictureAlignmentBottomRight
End Sub