このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

ユーザーフォームで画像サイズを調整する/枠に合わせる方法(VBA)

2022年12月22日

ユーザーフォームに画像を取り込んだ時、画像が枠(image)の大きさに合わなくなりませんか?

こんな(↓)感じに

枠に合わない
枠に合わない

今回は画像を枠に合わせる次の2つの方法を紹介します。

  1. 枠のサイズに画像を合わせる
  2. 画像サイズに枠を合わせる

なお、「1.枠のサイズに画像を合わせるの方法」がオススメです

VBAが難しいと感じたら
ココナラにてマクロ(VBA)の作成代行を始めました。
ご依頼はこちらから

サイズ調整しないと何が起こるか

2つの方法を紹介する前に、サイズ調整しないと何が起こるかを説明します。

画像取り込み
画像取り込み

まずユーザーフォームにImage1という枠を作り、そこに右の画像を読み込みたいとします。

取り込みのためのプログラムは次のようになります。

'《ユーザーフォーム》
Private Sub UserForm_Initialize()
'画像読み込み
    Me.Image1.Picture = LoadPicture("D:\cat.jpg")
End Sub
'《標準モジュール》
Sub InsertPic()
'ユーザーフォームを呼び出す
    Dim uf As UserForm1: Set uf = New UserForm1
    uf.Show
    Set uf = Nothing
End Sub

標準モジュール側はユーザーフォームを呼び出すだけです。
ユーザーフォーム側は呼び出されたタイミングでImage1に画像の読み込みを実行します。

枠に合わない
枠に合わない

するとこんな風に画像と枠のサイズが合わず、画像の中心あたりしか表示されません。

枠よりも画像のが大きいからなのですが、これでは困ってしまいます

1. 枠のサイズに画像を合わせる方法

Imageプロパティ
Imageプロパティ

枠のサイズに画像を合わせる方法はとても簡単です。

Image1のプロパティを開き、そこのPictureSizeModeというプロパティをfmPictureSizeModeZoomにするだけです。

fmPictureSizeModeClipフォームまたはページからはみ出している画像の部分をトリミングします (既定値)。
fmPictureSizeModeStretchフォームまたはページのサイズに合わせてピクチャを引き伸ばします。 画像の水平方向または垂直方向が歪む可能性があります。
fmPictureSizeModeZoom必要に応じてピクチャを引き伸ばしますが、水平方向または垂直方向にピクチャがゆがまないように引き伸ばします。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/picturesizemode-property

fmPictureSizeModeZoomとすれば、縦横比を維持したまま画像を拡大縮小することができます。

枠に収まる
枠に収まる

このように枠の中に画像が収まっています。

枠の横に空白がありますが、ひとまずこれで目的は達成することができました。

この空白も無くしたいという人は次を読んでください。

枠の空白も無くしたい場合

'《ユーザーフォーム》
Private Sub UserForm_Initialize()
'画像読み込み
    Me.Image1.Picture = LoadPicture("D:\cat.jpg")
    
    '枠の横幅を調整
    With Me.Image1.Picture
        Me.Image1.Width = .Width * Me.Image1.Height / .Height
    End With
End Sub

枠の空白も無くしたい場合は、画像を読み込んだ後に枠の横幅を調整するプログラムを追加します。

上のプログラムでは、枠の横幅を変更して縦横比を画像と一致させています。

2. 画像サイズに枠を合わせる

ここまでは画像を枠に合わせる方法を紹介しました。

もう1つのやり方は、画像サイズに合わせて枠の大きさを変える方法です。

'《ユーザーフォーム》
Private Sub UserForm_Initialize()
'画像読み込み
    Me.Image1.Picture = LoadPicture("D:\cat.jpg")
    Me.Image1.AutoSize = True
End Sub

やり方は簡単で、Image1のAutoSizeをTrueにするだけです。

これをやると、画像サイズに合わせて枠(Image1)の大きさが変わります。

ユーザーフォームが小さいと欠ける
ユーザーフォームが小さいと欠ける

ただし、枠 (Image1) の大きさは変わるのですが、ユーザーフォーム自体の大きさは変わりません。

そのため、ユーザーフォームが小さいと上の画像のようになるかもしれません。

ユーザーフォームを大きくすると
ユーザーフォームを大きくすると

ユーザーフォームを画像よりも大きくすれば、画像全体を表示することができます。

取り込む画像サイズが一定ならばこの方法も使えますが、 やはり「枠のサイズに画像を合わせる方法 」のがオススメです。

VBAが難しいと感じたら
ココナラにてマクロ(VBA)の作成代行を始めました。
ご依頼はこちらから

VBA

Posted by やろまい