8
フォーム上のコントロール（Controlオブジェクト）の「Width」プロパティでコントロールの”幅”を、あるいは「Height」プロパティで”高さ”をプログラムから設定することで、デザイン上のコントロールサイズを変更することができます。
次のプログラムでは、まずフォームのControlsコレクションからControlオブジェクトをループで取り出し、デザインビュー上で選択されているコントロールの中のもっとも幅や高さの大きい（あるいは小さい）値を取得します。
再度同様のループですべての選択コントロールの幅や高さをその値に設定します。それによって幅や高さを揃えることができます。
プログラム
Sub SampleCode_08()
'複数選択コントロールのサイズを揃える
' ※もっとも幅の広いコントロールに揃える
Dim ctl As Control
Dim intMaxWidth As Integer
'まず選択コントロールの幅の最大値を取得
For Each ctl In Screen.ActiveForm.Controls
With ctl
If .InSelection Then
If .Width > intMaxWidth Then
intMaxWidth = .Width
End If
End If
End With
Next ctl
'選択コントロールの幅を最大値に設定
For Each ctl In Screen.ActiveForm.Controls
With ctl
If ctl.InSelection Then
.Width = intMaxWidth
End If
End With
Next ctl
End Sub
実行例
■実行前
■実行後（もっとも幅の広いコントロールに揃えた場合）
