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

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

下図はExcel2016です。

Excelユーザーフォーム画像位置

 

< スポンサーリンク >

 

プロパティで設定

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

Excelユーザーフォーム画像位置

 

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

Excelユーザーフォーム画像位置

Excelユーザーフォーム画像位置

 

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

Excelユーザーフォーム画像位置

Excelユーザーフォーム画像位置

 

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

Excelユーザーフォーム画像位置

Excelユーザーフォーム画像位置

 

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

Excelユーザーフォーム画像位置

Excelユーザーフォーム画像位置

 

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

Excelユーザーフォーム画像位置

Excelユーザーフォーム画像位置

 

VBAで設定

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

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

Excelユーザーフォーム画像位置

 

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

Excelユーザーフォーム画像位置

 

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

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

Excelユーザーフォーム画像位置

 

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

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

Excelユーザーフォーム画像位置

 

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

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

Excelユーザーフォーム画像位置

 

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

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

Excelユーザーフォーム画像位置

 

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

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

Excelユーザーフォーム画像位置

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ