Menuへ

ユーザーフォームのImage(画像)を操作する

ユーザーフォームのImageコントロールに、画像ファイルをロードし、画像のサイズを取得します。

準備

ユーザーフォームの適当な位置にImageコントロールを置いてください。

ユーザーフォームのコード

Private Sub CommandButton2_Click()     '画像をロードする     UserForm1.Image1.Picture = LoadPicture("c:\cn小.jpg")     'Imageサイズを自動的に画像に合わせる     UserForm1.Image1.AutoSize = True          '画像サイズを取得し表示する     UserForm1.Caption = "幅：" & UserForm1.Image1.Width & "  高さ：" & UserForm1.Image1.Height End Sub

Topへ　Homeへ