Private Sub CheckBox1_change()
    'ファイル名を表示するにチェックが入っているときは文字サイズの選択が可能
    If CheckBox1.Value = True Then
        OptionButton9.Enabled = True
        OptionButton10.Enabled = True
        OptionButton11.Enabled = True
        CheckBox2.Enabled = True
    ElseIf CheckBox1.Value = False Then
        OptionButton9.Enabled = False
        OptionButton10.Enabled = False
        OptionButton11.Enabled = False
        CheckBox2.Enabled = False
    End If
End Sub
Private Sub CheckBox2_change()
    If CheckBox2.Value = True Then
        OptionButton12.Enabled = True
        OptionButton13.Enabled = True
        OptionButton14.Enabled = True
    ElseIf CheckBox2.Value = False Then
        OptionButton12.Enabled = False
        OptionButton13.Enabled = False
        OptionButton14.Enabled = False
    End If
End Sub

Private Sub CommandButton1_Click() '「画像を追加」を選択
    InsertImagesInColumns
    Me.hide
End Sub

Private Sub CommandButton2_Click() '「閉じる」を選択
    Me.hide
End Sub

Private Sub CommandButton3_Click() '「更新」を選択
    UpdateImagesInAllColumns
    Me.hide
End Sub