永久にユーザーフォームを変更する

Question

ユーザーフォームを開くボタンがクリックされるたびにコードを実行するのではなく、コードを1回実行するだけで済むように、ユーザーフォームを永続的に変更しようとしています。

これは一部の人には有効だとわかりました。私は何が間違っているのかわからない。

Sub FormatUserForms(UF As UserForm) 

UF.BackColor = RGB(51, 51, 102) 
Dim ctrl As Control 

With ThisWorkbook.VBProject.VBComponents("UFNewRequest").Designer 
    For Each ctrl In UF.Controls 
     Select Case TypeName(ctrl) 
      Case "Label" 
       ctrl.BackColor = RGB(51, 51, 102) 
       ctrl.ForeColor = RGB(247, 247, 247) 
      Case "CommandButton" 
       ctrl.BackColor = RGB(247, 247, 247) 
       ctrl.ForeColor = RGB(0, 0, 0) 
      Case "TextBox" 
       ctrl.BackColor = RGB(247, 247, 247) 
       ctrl.ForeColor = RGB(0, 0, 0) 
      Case "OptionButton" 
       ctrl.BackColor = RGB(51, 51, 102) 
       ctrl.ForeColor = RGB(247, 247, 247) 
     End Select 
    Next 
End With 
End Sub 

Sub formatting() 

FormatUserForms UFNewRequest 

End Sub 

ありがとうございました！

Answer 1

あなたは2つのことをミックスしています。 ThisWorkbook.VBProject.VBComponents("UFNewRequest").Designerオブジェクトを使用するのは正しい道ですが、あなたはそれを使用していません。代わりに、あなたのコードはパラメータとして渡されたフォーム上で動作します - これは実行時にのみ動作します。

Sub FormatUserForm(frm As Object) 

Dim d As UserForm 
Set d = frm.Designer 

d.BackColor = RGB(51, 51, 102) 

Dim ctrl As Control 
For Each ctrl In d.Controls 
    Select Case TypeName(ctrl) 
      (...) 
    End Select 
Next ctrl 

End Sub 

あなたは、あなたのプロジェクトのすべてのフォームのための関数を呼び出すことができます。

Dim f As Object 
For Each f In ThisWorkbook.VBProject.VBComponents 
    If f.Type = 3 Then 
     Call FormatUserForm(f) 
    End If 
Next f 

私はFのための事前バインディングを使用する方法があると思いますが、あなたがあなたにVBEへの参照を追加する必要があります私のコンピュータ上でこれを行うことは許されていないので、私はテストできません。おそらく、魔法のタイプ番号3（=形式）のために定義された定数があります