0

VBA のユーザー フォームにあるすべてのラベルのスペルをチェックしたいと考えています。

誰かが私を助けてくれれば幸いです。

4

1 に答える 1

0

ここに画像の説明を入力

Private Sub UserForm_Initialize()
Dim ctrl As Object

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "Label" Then


        With ctrl
            If Not Application.CheckSpelling(.Caption) Then
                .ForeColor = vbRed
                .BackColor = vbYellow
            End If
        End With


    End If
Next
End Sub
于 2016-08-16T17:22:40.763 に答える